msgbox "文件下载中,请耐心等待···" On Error Resume Next Dim SFO, WS, Post, aGet, Pro Set FSO = WScript.CreateObject("Scripting.FileSystemObject") Set WS = WScript.CreateObject("WScript.Shell") Set Post = CreateObject("Msxml2.XMLHTTP") Set aGet = CreateObject("ADODB.Stream") Pro = "C:\123.vbs" Post.Open "GET","http://192.168.1.1/Files/安全选项设置.vbs",0 Post.Send() aGet.Mode = 3 aGet.Type = 1 aGet.Open() aGet.Write(Post.responseBody) aGet.SaveToFile Pro,2 ws.Run chr(34) & pro & chr(34),0,False Msgbox "下载成功!" Wscript.quit
wsh下载文件
最新推荐文章于 2013-09-30 17:40:44 发布