这篇文章主要讲解了“vbs脚本怎么实现下载jre包并静默安装”，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习“vbs脚本怎么实现下载jre包并静默安装”吧！
珙县网站制作公司哪家好，找
创新互联建站！从网页设计、网站建设、微信开发、APP开发、
成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。
创新互联建站于2013年创立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选
创新互联建站。
安装完成后可以回调，替换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包并静默安装”的内容了，经过本文的学习后，相信大家对vbs脚本怎么实现下载jre包并静默安装这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是创新互联网站建设公司，，小编将为大家推送更多相关知识点的文章，欢迎关注！
当前题目：vbs脚本怎么实现下载jre包并静默安装-创新互联
URL网址：
http://cdkjz.cn/article/decics.html
