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