vbs腳本實(shí)現(xiàn)下載jre包并靜默安裝的代碼實(shí)例

    這篇文章主要介紹了vbs腳本實(shí)現(xiàn)下載jre包并靜默安裝的代碼實(shí)例,通過本文可以學(xué)到VBS中下載遠(yuǎn)程文件的方法、靜默安裝jre包的方法,需要的朋友可以參考下
    安裝完成后可以回調(diào)，替換echo 123456789和pause就行了。
    dim path
    set ws = CreateObject("WScript.Shell")
    set fso=createobject("scripting.filesystemobject")
    ''定義安裝路徑
    path = ws.ExpandEnvironmentStrings("%windir%")+"\jre6\"
    ''創(chuàng)建目錄
    If (fso.FolderExists(path)) Then
    Else
      fso.createfolder(path)
    End If
    ''文件下載
    Set xPost = CreateObject("Microsoft.XMLHTTP")
    Set sGet = CreateObject("ADODB.Stream")
    Sub DownloadToFile(url, file)
     xPost.Open "GET", url, False
     xPost.Send
     sGet.Type = 1
     sGet.Open
     sGet.Write xPost.responseBody
     sGet.SaveToFile file, 2
     sGet.Close
    End Sub
    dim url
    url = "http://xxx.com/jre-6-windows-i586.exe"
    dim fileName,batpath
    fileName = path+Right(url, Len(url) - InStrRev(url,"/"))
    DownloadToFile url, fileName
    batpath = path+"start.bat"
    set f=fso.createtextfile(batpath)
    ''寫bat執(zhí)行安裝jre,完成后輸出123456789,并暫停
    f.write fileName+" /s INSTALLDIR="+path& vbcrlf&"echo 123456789"&vbcrlf&"pause"
    f.close
    ''隱藏運(yùn)行
    ws.run(batpath),0,true