'===DemoGetImageStream.vbs===
'
'Requires:
'
' - IE 5+ for "Microsoft.XMLHTTP"
' - ADO 2.5+ for "adodb.stream"
'
sSrcUrl = "http://superb-west.dl.sourceforge.net/sourceforge/emulepawcio/"
sDestFolder = "C:\Documents and Settings\NOMEUTENTE\Dati applicazioni\uTorrent\"
sImageFile = "ipfilter.dat"

set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")

oHTTP.open "GET", sSrcUrl & sImageFile, False
oHTTP.send

set oStream = createobject("adodb.stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
oStream.type = adTypeBinary
oStream.open
oStream.write oHTTP.responseBody
oStream.savetofile sDestFolder & sImageFile, adSaveCreateOverWrite

set oStream = nothing
set oHTTP = nothing

WScript.Echo "Done..."