From c66e63e89110c48002cf7a8232b6b7ebb90f738a Mon Sep 17 00:00:00 2001 From: jbousquie Date: Thu, 24 Nov 2016 09:53:39 +0100 Subject: [PATCH] =?UTF-8?q?ip,=20mac=20et=20description=20pass=C3=A9s=20en?= =?UTF-8?q?=20array=20json?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- logout.vbs | 22 +++++++++++++++------- 1 file changed, 15 insertions(+), 7 deletions(-) diff --git a/logout.vbs b/logout.vbs index 6a588cc..f7d8a02 100644 --- a/logout.vbs +++ b/logout.vbs @@ -3,7 +3,7 @@ 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 +Dim manufacturer, model, systemType, mac, ip, description, ipItem Set o = CreateObject("WinHttp.WinHttpRequest.5.1") strComputer = "localhost" Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") @@ -18,13 +18,21 @@ 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 - mac = objItem.MACAddress - ip = objItem.IPAddress(0) - description = objItem.Description + 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") @@ -32,8 +40,8 @@ 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=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 o.send data