激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

腳本之家，腳本語言編程技術及教程分享平臺！
分類導航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服務器之家 - 腳本之家 - VBS - vbs腳本實現下載jre包并靜默安裝的代碼實例

vbs腳本實現下載jre包并靜默安裝的代碼實例

2020-08-15 15:54VBS教程網 VBS

這篇文章主要介紹了vbs腳本實現下載jre包并靜默安裝的代碼實例,通過本文可以學到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

 

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： 男女羞羞在线观看 | 精品国产99久久久久久宅男i | 91中文在线观看 | 一区二区三区四区视频在线观看 | 国产做爰全免费的视频黑人 | 羞羞视频免费入口网站 | 亚洲特黄 | 国产精品片一区二区三区 | 日韩在线欧美在线 | 91avsese| 亚洲影视中文字幕 | 久久激情国产 | 黄免费观看视频 | 欧美中文字幕一区二区三区亚洲 | 黄色av免费电影 | 中文字幕偷拍 | 午夜精品久久久久久毛片 | 一级黄色大片在线观看 | 欧美曾交| 久久久99精品视频 | 3xxx| 欧美aⅴ视频 | 成人免费观看毛片 | 92看片淫黄大片一级 | 国产精品一区在线观看 | 狠很操| 中文字幕在线播放视频 | 成片免费观看视频大全 | 孕妇体内谢精满日本电影 | 久久精品视频日本 | 黄视频免费在线观看 | 泰剧19禁啪啪无遮挡大尺度 | 久久99精品久久久久久国产越南 | 国产精品99久久久久久久vr | 亚洲电影在线观看高清免费 | 精选久久 | 色婷婷久久一区二区 | 日韩深夜视频 | 久久男人的天堂 | 黄在线观看在线播放720p | 亚洲成人在线免费观看 |