VBScript - Quick and dirty file downloader

Posted by Brian Clifton
Written September 8, 2008 at 16:17

usage: cscript script.vbs "http://www.myurl.com/myfile.jpg", "C:\output\myfile.jpg"

Set oArgs = WScript.Arguments

If oArgs.Count <> 2 Then

    Wscript.Echo "Error: Wrong number of arguments!"

    Wscript.Quit 1

End If



strDownloadURL = oArgs(0)

strSaveAsURL = oArgs(1)



Set oHttp = CreateObject("Microsoft.XMLHTTP")

oHttp.open "GET", strDownloadURL, false

oHttp.send()



If oHttp.status <> 200 Then

    WScript.Echo "Failed getting the file: " & strDownloadURL & vbCrLf & "Error: " & oHttp.statusText

    WScript.Quit 2

End If



SaveFileToDisk strSaveAsURL, oHttp.ResponseBody



Function SaveFileToDisk(strFileName, oData)

    Const adTypeBinary = 1

    Const adSaveCreateOverWrite = 2



    Dim oStream: Set oStream = CreateObject("ADODB.Stream")



    oStream.Type = adTypeBinary

    oStream.Open

    oStream.Write oData

    oStream.SaveToFile strFileName, adSaveCreateOverWrite



    Set oStream = Nothing

End Function