http ftp down 文件 小技巧

iRemote = "http://www.google.com/logos/piday10-hp.gif"? // 远程文件，使用ftp 亦可
iLocal = "piday10-hp.gif"?? // 欲保存的本地文件名
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile iLocal,2
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
运行方式：
1、命名为.vbs文件，直接点击运行。

2、命名为.vbs文件，在cmd中 > cscript ***.vbs

?