vbs脚本实现下载jre包并静默安装的代码实例_VBS

安装完成后可以回调，替换echo 123456789和pause就行了。

				?

									dim path

									set ws = CreateObject("WScript.Shell")

									set fso=createobject("scripting.filesystemobject")

									''定义安装路径

									path = ws.ExpandEnvironmentStrings("%windir%")+"\jre6\"

									''创建目录

									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执行安装jre,完成后输出123456789,并暂停

									f.write fileName+" /s INSTALLDIR="+path& vbcrlf&"echo 123456789"&vbcrlf&"pause"

									f.close

									''隐藏运行

									ws.run(batpath),0,true

vbs脚本实现下载jre包并静默安装的代码实例

相关文章

热门资讯