déplacement vbs

2016-11-29 14:09:44 +01:00
parent 638fce8ed9
commit c1f323b18d
3 changed files with 0 additions and 0 deletions
@@ -0,0 +1,13 @@
+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
+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
+o.send data