Comments on: VBScript: Download and Save a Binary File

By: Chris

Chris — Sun, 04 Jan 2009 21:01:09 +0000

Fantastic script, just does what I need.

By the way, virus alert can be avoided if "Microsoft.XmlHttp" is used instead of "MSXML2.XMLHTTP".

Thank you very much!

By: Bruce

Bruce — Wed, 24 Dec 2008 06:03:17 +0000

Beautiful - thank you very much.

By: Otoman

Otoman — Fri, 12 Dec 2008 23:52:00 +0000

Can we download a file form Website with BAtch file. without using external command or Functions
Thankx

By: Dan

Dan — Tue, 02 Dec 2008 06:16:56 +0000

Perfect, just what I was looking for.

By: quux

quux — Fri, 07 Nov 2008 11:38:27 +0000

Something's up with WP. When I try to post a link to a better-formatted version of the script above, I get redirected to a blank page. Sorry if I just dumped like 20 bogus posts into your approval queue (if you have one).

By: quux

quux — Fri, 07 Nov 2008 11:16:36 +0000

Hi there,

Nice script - thanks!

I've refactored it a bit so that it can be called as a simple function which downloads directly to your temp dir. So now you can:

Call DownloadFile("http://imgs.xkcd.com/comics/faust_20.png")

And it will download that file to your temp dir. Here is the function:

Function DownloadFile(DownloadUrl) 'generic file downloader, saves to temp
'Get name of file from url (whatever follows the final forwardslash "/")
Dim arURL, FileName, FileSaveLocation
arURL = Split(DownloadUrl,"/",-1,1)
If arURL(UBound(arURL)) = "" Then 'if there is a trailing forwardslash
FileName = arURL(UBound(arURL) -1)
Else
filename = arURL(UBound(arURL))
End If
'Get temp folder location
Dim oFS, TempDir
Set oFS = CreateObject("Scripting.FileSystemObject")
Set TempDir = oFS.getSpecialFolder(2)
Wscript.Echo TempDir & "\" & FileName
FileSaveLocation = TempDir & "\" & FileName

' Fetch the file
Dim oXMLHTTP, oADOStream
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.open "GET", DownloadUrl, false
oXMLHTTP.send()
If oXMLHTTP.Status = 200 Then
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Open
oADOStream.Type = 1 'adTypeBinary
oADOStream.Write oXMLHTTP.ResponseBody
oADOStream.Position = 0 'Set the stream position to the start
If oFS.Fileexists(FileSaveLocation) Then oFS.DeleteFile FileSaveLocation
Set oFS = Nothing
oADOStream.SaveToFile FileSaveLocation
oADOStream.Close
Set oADOStream = Nothing
End if
Set oXMLHTTP = Nothing
End Function

By: Chrissy

Chrissy — Wed, 29 Oct 2008 03:58:58 +0000

It's not a virus nor does it contain a virus. A lot of anti virus apps wrongly consider any vbs file a virus. Or maybe it hates FSO. But you can see clearly from the code that it's just downloading a file. If that's a virus, then I download hundreds of viruses a day.

By: Kei

Kei — Tue, 28 Oct 2008 13:30:25 +0000

Thats is so POSSIBLE IMPOSSIBLE!
The text contains VIRUS! Holy moly once i saved as a text the avast pop up and says that it contain virus even that it just a TEXT VBS.

By: Amit

Amit — Mon, 29 Sep 2008 20:58:52 +0000

I have just tested your script and it worked well with small size of file but in case of large file say 500MB it throws following error:
ADODB.Stream: Out of memory

Please fix the code and let us know.

Thank you very much.

By: Amit

Amit — Mon, 29 Sep 2008 20:35:27 +0000

Thanks for providing this script, it really helped me a lot.