- Set wshshell = CreateObject("WScript.Shell")
- comp = WshShell.ExpandEnvironmentStrings("%computername%")
- user = WshShell.ExpandEnvironmentStrings("%username%")
- Set oHTTP = CreateObject("winhttp.winhttprequest.5.1")
- sSource = "http://host/script.php?user=" & user & "&computername=" & comp & "&type=power_on|power_off|logon|logout"
- oHTTP.open "GET", sSource, False
- oHTTP.send