10 lines
420 B
Plaintext
10 lines
420 B
Plaintext
Dim o, n, data, secopt
|
|
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.dometud.iut-rodez.local/", False
|
|
o.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
|
|
data = "action=C&username="+n.Username+"&computer="+n.ComputerName
|
|
o.send data
|