Set Args=wscript.arguments
if args.count<2 then wscript.quit
srce=args(0)
dest=args(1)
Set HTTP=CreateObject("MSXML2.XMLHTTP")
HTTP.Open "GET",srce,False
HTTP.Send
Set Stream=CreateObject("ADODB.Stream")
Stream.Type=1
Stream.Open
Stream.Write HTTP.ResponseBody
Stream.SaveToFile dest,2