wsh下载文件
msgbox "文件下载中，请耐心等待···"On Error Resume NextDim SFO, WS, Post, aGet, ProSet 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",0Post.Send()aGet.Mode = 3aGet.Type = 1aGet.Open()aGet.Write(Post.responseBody)aGet.SaveToFile Pro,2ws.Run chr(34) & pro & chr(34),0,FalseMsgbox "下载成功！"Wscript.quit
页:
[1]