jerome/winlog
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

code #

Browse Source
This commit is contained in:
jbousquie 2016-11-29 14:57:33 +01:00
parent 8134808e59
commit 8d4a51680f
2 changed files with 30 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
admin/scripts_clients.php Normal file
View File

@ -0,0 +1,28 @@
<?php
include_once('winlog_admin_conf.php');
include_once('session.php');
$username = Username();
$profil = Profil($username);
FiltreProfil($profil);
if ($profil < 2) {
header('Location: '.$winlog_url);
}
?>
<!DOCTYPE HTML>
<html lang="fr">
<head>
<title>Winlog</title>
<meta charset="utf-8">
<link rel="stylesheet" media="screen" type="text/css" title="default" href="default.css">
</head>
<body>
<p class="header">WINLOG</p>
<div><a href="generate_vbs.php?f=logon">logon.vbs</a></div>
<div><a href="generate_vbs.php?f=logout">logout.vbs</a></div>
<div><a href="generate_vbs.php?f=matos">matos.vbs</a></div>
</body>
</html>

35
admin/vbs/logout.vbs
View File

@ -2,37 +2,8 @@ On error resume next
'audit des déconnexions active directory 'audit des déconnexions active directory
'on émet un POST HTTP, sans passer par le proxy, sur le serveur de log des connexions 'on émet un POST HTTP, sans passer par le proxy, sur le serveur de log des connexions
Dim o, n, data, secopt, strComputer, objWMIService, colItems, objItem Dim o, n, data
Dim manufacturer, model, systemType, mac, ip, description, ipItem
Set o = CreateObject("WinHttp.WinHttpRequest.5.1") Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
strComputer = "localhost"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
' collecte marque, modele, arch
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem in colItems
manufacturer = trim(objItem.Manufacturer)
model = trim(objItem.Model)
systemType = trim(objItem.SystemType)
next
' collecte mac address
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
mac = "["
ip = "["
description = "["
For Each objItem in colItems
if Not IsNull(objItem.IPAddress) then
For Each ipItem in objItem.IPAddress
mac = mac & chr(34) & objItem.MACAddress & chr(34) & ","
ip = ip & chr(34) & ipItem & chr(34) & ","
description = description & chr(34) & objItem.Description & chr(34) & ","
next
end if
next
mac = mac & "]"
ip = ip & "]"
description = description & "]"
' emission requête ' emission requête
Set n = CreateObject("wscript.network") Set n = CreateObject("wscript.network")
@ -40,8 +11,6 @@ o.setproxy 1
o.Option(4) = 13056 'pour forcer à ignorer toutes les erreurs de certificats o.Option(4) = 13056 'pour forcer à ignorer toutes les erreurs de certificats
o.open "POST", "https://winlog.iut.local/", False o.open "POST", "https://winlog.iut.local/", False
o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
data = "code=HK9!-uu&action=D&username=" & LCase(n.Username) & "&computer=" & n.ComputerName data = "code=#####&action=D&username=" & LCase(n.Username) & "&computer=" & n.ComputerName
data = data & "&manufacturer=" & manufacturer & "&model=" & model & "&systemType=" & systemType
data = data & "&mac=" & mac & "&ip=" & ip & "&descr=" & description
o.send data o.send data