vbs脚本实现下载jre包并静默安装的代码实例
更新时间：2014年08月05日 11:26:25 投稿：junjie
这篇文章主要介绍了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
您可能感兴趣的文章:
相关文章
这篇文章主要介绍了asp+fso创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件，为了方便使用脚本之家特为大家分享了一个函数，方便大家学习与理解2006-11-11
VBS教程：VBscript属性-Pattern 属性...2006-11-11
这篇文章主要介绍了Springboot Thymeleaf数据迭代实现过程,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下2007-12-12
好玩的vbs特色代码...2007-03-03
这是我在菊花论坛脚本版块看到的,真的很不错,一共有四个部份,把代码复制到记事本另存为GetOwner.VBS文件,2009-07-07
VBS编程教程 (第4篇)...2007-07-07
在 IE 中用VBScript 实际不提示直接打印2008-11-11
VBScript提交表单提示-对象不支持此属性或方法...2007-07-07
VBS教程：函数-WeekDayName 函数...2006-11-11
现在看到很多朋友都不明白VBS，但我也没有时间全部写完，所以一天写一些，边写边和大家交流，也希望有朋友能接着写或指出我的错误。2007-02-02
最新评论