diff --git a/logon.vbs b/logon.vbs index df244e2..c0ca2ff 100644 --- a/logon.vbs +++ b/logon.vbs @@ -1,3 +1,7 @@ +On error resume next + +'audit des 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") Set n = CreateObject("wscript.network") @@ -5,5 +9,5 @@ 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 = "action=C&username="+n.Username+"&computer="+n.ComputerName +data = "code=HK9!-uu&action=C&username="+LCase(n.Username)+"&computer="+n.ComputerName o.send data