vbs脚本怎么实现下载jre包并静默安装

这篇文章主要讲解了“vbs脚本怎么实现下载jre包并静默安装”，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习“vbs脚本怎么实现下载jre包并静默安装”吧！

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

dimpath
setws=CreateObject("WScript.Shell")
setfso=createobject("scripting.filesystemobject")
''定义安装路径
path=ws.ExpandEnvironmentStrings("%windir%")+"\jre6\"
''创建目录
If(fso.FolderExists(path))Then
Else
fso.createfolder(path)
EndIf
''文件下载
SetxPost=CreateObject("Microsoft.XMLHTTP")
SetsGet=CreateObject("ADODB.Stream")
SubDownloadToFile(url,file)
xPost.Open"GET",url,False
xPost.Send
sGet.Type=1
sGet.Open
sGet.WritexPost.responseBody
sGet.SaveToFilefile,2
sGet.Close
EndSub
dimurl
url="http://xxx.com/jre-6-windows-i586.exe"
dimfileName,batpath
fileName=path+Right(url,Len(url)-InStrRev(url,"/"))
DownloadToFileurl,fileName
batpath=path+"start.bat"
setf=fso.createtextfile(batpath)
''写bat执行安装jre,完成后输出123456789,并暂停
f.writefileName+"/sINSTALLDIR="+path&vbcrlf&"echo123456789"&vbcrlf&"pause"
f.close
''隐藏运行
ws.run(batpath),0,true

感谢各位的阅读，以上就是“vbs脚本怎么实现下载jre包并静默安装”的内容了，经过本文的学习后，相信大家对vbs脚本怎么实现下载jre包并静默安装这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是恰卡编程网，小编将为大家推送更多相关知识点的文章，欢迎关注！