vbs腳本實(shí)現(xiàn)下載jre包并靜默安裝的代碼實(shí)例
更新時(shí)間：2014年08月05日 11:26:25 投稿：junjie
這篇文章主要介紹了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
您可能感興趣的文章:
相關(guān)文章
運(yùn)行vbs腳本報(bào)錯(cuò)無效字符、中文亂碼的解決方法(編碼問題)
今天在寫一個(gè)vbs的時(shí)候，發(fā)現(xiàn)中文亂碼，后來寫好代碼正常運(yùn)行的代碼壓縮一下給了同事，發(fā)現(xiàn)報(bào)無效字符，經(jīng)過驗(yàn)證后發(fā)現(xiàn)原來是編碼的問題導(dǎo)致，這里就為大家分享一下2019-12-12
VBS教程：屬性-AtEndOfStream 屬性...2006-11-11
vbs結(jié)合wget 實(shí)現(xiàn)下載網(wǎng)站圖片
本文主要實(shí)現(xiàn)了使用vbs腳本調(diào)用wget，下載網(wǎng)站所有頁面到本腳本目錄，并掃描本腳本目錄中所有文件，讀取本腳本目錄中的所有網(wǎng)頁，匹配圖片 URL 地址，保存所有圖片 URL 地址到 url-img.txt 文件，然后調(diào)用wget: 下載 url-img.txt 指定的圖片到本腳本 img 目錄2014-09-09
在 HTA 中暫停腳本的方法...2007-03-03
VBS中的標(biāo)識(shí)符（Identifiers）
標(biāo)識(shí)符可以簡(jiǎn)單的認(rèn)為就是類名、變量名和過程名。2011-02-02
我們把e或由e經(jīng)過一定變換和復(fù)合的形式定義為“自然律”。2009-05-05
VBS教程：屬性-IsRootFolder 屬性...2006-11-11
VBS教程：方法-GetFileName 方法...2006-11-11
VBS教程：對(duì)象-Match 對(duì)象...2006-11-11
VBS教程：函數(shù)-VarType 函數(shù)...2006-11-11