actualisation

This commit is contained in:
jbousquie 2016-11-23 10:39:18 +01:00
parent acfe43b44d
commit 3e7c27807f

View File

@ -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