| 标题 | vbs脚本实现下载jre包并静默安装的代码实例 |
| 范文 | 这篇文章主要介绍了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 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。