足球游戏_中国足彩网￥体育资讯$

这篇文章主要介绍了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