Уже подсказали,может кому пригодится,вопрос исчерпан
Код:
Set oShell = CreateObject( "WScript.Shell" )
temp=oShell.ExpandEnvironmentStrings("%TEMP%")
set d = CreateObject("Scripting.Dictionary")
d.Add "1", "http://google.com/trash.txt|"&temp&"\trash.txt"
Set x = CreateObject("MSXML2.XMLHTTP")
For Each i In d
x.open "GET", Split(d.Item(i), "|")(0), false
x.send()
If x.Status = 200 Then
With CreateObject("ADODB.Stream")
.Open
.Type = 1
.Write x.ResponseBody
.Position = 0
.SaveToFile Split(d.Item(i), "|")(1), 2
.Close
End With
End If
Next