主頁 > 知識庫 > vbs腳本實現(xiàn)下載jre包并靜默安裝的代碼實例

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

熱門標簽:除了地圖標注還有這種生意嗎 佛山真人電銷機器人廠家 神行者美術(shù)館地圖標注 如何用機器人進行電銷 哪里有便宜的地圖標注公司 東營快遞外呼系統(tǒng) 齊齊哈爾高德地圖標注店 地圖標注政府哪個部門管 百度地圖標注點距離代碼

安裝完成后可以回調(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
''隱藏運行
ws.run(batpath),0,true

您可能感興趣的文章:
  • Centos7.3下jre1.8安裝和配置教程

標簽:銅川 鶴壁 湖州 邢臺 西安 文山 四平

巨人網(wǎng)絡通訊聲明:本文標題《vbs腳本實現(xiàn)下載jre包并靜默安裝的代碼實例》,本文關(guān)鍵詞  vbs,腳本,實現(xiàn),下載,jre,包,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs腳本實現(xiàn)下載jre包并靜默安裝的代碼實例》相關(guān)的同類信息!
  • 本頁收集關(guān)于vbs腳本實現(xiàn)下載jre包并靜默安裝的代碼實例的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章