Downloading Files VBS

[mattonfire]

Can someone write me a script for downloading a file to a specific location because the one that I am using at the moment won't work for some reason it corrupts the sound file, I am downloading from here "LINK"

 

 

"dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")

dim bStrm: Set bStrm = createobject("Adodb.Stream")

xHttp.Open "GET", "download url", False

xHttp.Send

with bStrm

    .type = 1 '//binary

    .open

    .write xHttp.responseBody

    .savetofile "<send to location>", 2 '//overwrite" Fine with png files but corrupts sound files

[mattonfire]

- bump -