23 lines
1009 B
Plaintext
23 lines
1009 B
Plaintext
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
|
|
Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
|
|
strComputer = "localhost"
|
|
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
|
|
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
|
|
Set n = CreateObject("wscript.network")
|
|
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+"&manufacturer="+manufacturer+"&model="+model+"&systemType="+systemType
|
|
o.send data
|
|
|