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