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

脚本专栏 2024/11/17 佚名

2 0 1

神剑山庄资源网 Design By www.hcban.com

安装完成后可以回调，替换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包,静默安装

标签：

vbs,下载jre包,静默安装

神剑山庄资源网 Design By www.hcban.com

神剑山庄资源网 免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

神剑山庄资源网 Design By www.hcban.com

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

暂无vbs脚本实现下载jre包并静默安装的代码实例的评论...

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒经典版》的玩家都可以获得奖励。

更新日志

2024年11月17日

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

vbs,下载jre包,静默安装

使用VBS禁用、启动USB存储设备

vbs中获取脚本当前路径的2个方法

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

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

更新日志

友情链接