这篇文章主要讲解了“vbs脚本怎么实现下载jre包并静默安装”,文中的讲解内容简单清晰,易于学习与理解,下面请大家跟着小编的思路慢慢深入,一起来研究和学习“vbs脚本怎么实现下载jre包并静默安装”吧!
安装完成后可以回调,替换echo 123456789和pause就行了。
dim pathset ws = CreateObject("WScript.Shell")set fso=createobject("scripting.filesystemobject")''定义安装路径path = ws.ExpandEnvironmentStrings("%windir%")+"\jre6\"''创建目录If (fso.FolderExists(path)) ThenElse 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.CloseEnd Subdim urlurl = "http://xxx.com/jre-6-windows-i586.exe"dim fileName,batpathfileName = path+Right(url, Len(url) - InStrRev(url,"/"))DownloadToFile url, fileNamebatpath = 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包并静默安装这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是编程网,小编将为大家推送更多相关知识点的文章,欢迎关注!