gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbs脚本实现下载jre包并静默安装的代码实例由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

安装完成后可以回调,替换echo 123456789和pause就行了.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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包并静默安装的代码实例的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com