安装完成后可以回调，替换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包,静默安装
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
内蒙古资源网 Copyright www.nmgbbs.com
暂无“vbs脚本实现下载jre包并静默安装的代码实例”评论...