From 8d4a51680f33a016558a9c048d8b3c107f6cfebf Mon Sep 17 00:00:00 2001 From: jbousquie Date: Tue, 29 Nov 2016 14:57:33 +0100 Subject: [PATCH] code # --- admin/scripts_clients.php | 28 ++++++++++++++++++++++++++++ admin/vbs/logout.vbs | 35 ++--------------------------------- 2 files changed, 30 insertions(+), 33 deletions(-) create mode 100644 admin/scripts_clients.php diff --git a/admin/scripts_clients.php b/admin/scripts_clients.php new file mode 100644 index 0000000..a6045d4 --- /dev/null +++ b/admin/scripts_clients.php @@ -0,0 +1,28 @@ + + + + + Winlog + + + + +

WINLOG

+
logon.vbs
+
logout.vbs
+
matos.vbs
+ + + \ No newline at end of file diff --git a/admin/vbs/logout.vbs b/admin/vbs/logout.vbs index f7d8a02..7eab3aa 100644 --- a/admin/vbs/logout.vbs +++ b/admin/vbs/logout.vbs @@ -2,37 +2,8 @@ On error resume next 'audit des déconnexions active directory '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 manufacturer, model, systemType, mac, ip, description, ipItem +Dim o, n, data 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 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.open "POST", "https://winlog.iut.local/", False o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" -data = "code=HK9!-uu&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 +data = "code=#####&action=D&username=" & LCase(n.Username) & "&computer=" & n.ComputerName o.send data