国产欧美一区二区久久,亚洲资源在线观看,欧美在线视频免费观看

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

一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

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

延伸 · 閱讀

VBS教程：正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式

可以定時(shí)自動(dòng)關(guān)機(jī)的vbs腳本

vbs base64 解密腳本代碼

VBS教程：屬性-AvailableSpace 屬性

VBS教程：屬性-VolumeName 屬性

腳本 MsAgent組件微軟精靈揪出系統(tǒng)自帶的寵物

VBS教程：對(duì)象-Folders 集合

提供個(gè)可以顯示農(nóng)歷的VBS代碼

ActiveX部件不能創(chuàng)建對(duì)象：dm.dmsoft代碼：800A01AD

抖音vbs表白代碼大全抖音vbscript表白代碼使用方法

vbs小程序圖標(biāo)更改方法的實(shí)現(xiàn)

VBS定時(shí)執(zhí)行idea程序的Testng文件的方法