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

您可能感兴趣的文章:

• Centos7.3下jre1.8安装和配置教程

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！