茄子在线看片免费人成视频,午夜福利精品a在线观看,国产高清自产拍在线观看,久久综合久久狠狠综合

這篇文章主要介紹了vbs腳本實現(xiàn)下載jre包并靜默安裝的代碼實例,通過本文可以學到VBS中下載遠程文件的方法、靜默安裝jre包的方法,需要的朋友可以參考下

安裝完成后可以回調，替換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

''隱藏運行

ws.run(batpath),0,true