From 3e7c27807f4a2e23f1709a210d8d532883edf5da Mon Sep 17 00:00:00 2001
From: jbousquie <jerome@bousquie.fr>
Date: Wed, 23 Nov 2016 10:39:18 +0100
Subject: [PATCH] actualisation

---
 logon.vbs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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