wsh下载文件

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