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

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

2020-08-15 15:54VBS教程网 VBS

这篇文章主要介绍了vbs脚本实现下载jre包并静默安装的代码实例,通过本文可以学到VBS中下载远程文件的方法、静默安装jre包的方法,需要的朋友可以参考下

安装完成后可以回调，替换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