欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

 更新時(shí)間：2014年08月05日 11:26:25   投稿：junjie  
這篇文章主要介紹了vbs腳本實(shí)現(xiàn)下載jre包并靜默安裝的代碼實(shí)例,通過(guò)本文可以學(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)
''寫(xiě)bat執(zhí)行安裝jre,完成后輸出123456789,并暫停
f.write fileName+" /s INSTALLDIR="+path& vbcrlf&"echo 123456789"&vbcrlf&"pause"
f.close
''隱藏運(yùn)行
ws.run(batpath),0,true

您可能感興趣的文章:

相關(guān)文章

最新評(píng)論