actualisation
This commit is contained in:
parent
acfe43b44d
commit
3e7c27807f
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user