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

clean up

Browse Source
This commit is contained in:
jbousquie 2016-11-24 10:37:14 +01:00
parent fe3d236bb0
commit c54c144cac
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
logon.vbs
View File

@ -2,12 +2,12 @@ On error resume next
'audit des connexions active directory 'audit des 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 Dim o, n, data
Set o = CreateObject("WinHttp.WinHttpRequest.5.1") Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
Set n = CreateObject("wscript.network") Set n = CreateObject("wscript.network")
o.setproxy 1 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=C&username="+LCase(n.Username)+"&computer="+n.ComputerName data = "code=HK9!-uu&action=C&username=" & LCase(n.Username) & "&computer=" & n.ComputerName
o.send data o.send data