From c54c144cac097dd9153a061958e85ea2241e0589 Mon Sep 17 00:00:00 2001 From: jbousquie Date: Thu, 24 Nov 2016 10:37:14 +0100 Subject: [PATCH] clean up --- logon.vbs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/logon.vbs b/logon.vbs index c0ca2ff..c56a603 100644 --- a/logon.vbs +++ b/logon.vbs @@ -2,12 +2,12 @@ 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 +Dim o, n, data Set o = CreateObject("WinHttp.WinHttpRequest.5.1") 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=C&username="+LCase(n.Username)+"&computer="+n.ComputerName +data = "code=HK9!-uu&action=C&username=" & LCase(n.Username) & "&computer=" & n.ComputerName o.send data