Script

' ### Downloader fil fra internetside og gemmer filen på den
' angivne placering... ###

Set args = WScript.Arguments

Url = "http://cht.dk/data/php-scripts/forum.zip"
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", Url, False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "c:\temp\DownloladPdf.zip", 2 '//overwrite
end with