论坛 › 各类教程 › vbs脚本实现下载jre包并静默安装的代码实例

柠檬墨绿色 发表于 2016/11/10 15:47

vbs脚本实现下载jre包并静默安装的代码实例

　　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,truewww.9ask.cn/hengshui/

查看完整版本: vbs脚本实现下载jre包并静默安装的代码实例