這篇文章主要介紹了vbs腳本實(shí)現(xiàn)下載jre包并靜默安裝的代碼實(shí)例,通過(guò)本文可以學(xué)到VBS中下載遠(yuǎn)程文件的方法、靜默安裝jre包的方法,需要的朋友可以參考下

安裝完成后可以回調(diào)，替換echo 123456789和pause就行了。

1. dim path 
2. set ws = CreateObject("WScript.Shell") 
3. set fso=createobject("scripting.filesystemobject") 
4. ''定義安裝路徑 
5. path = ws.ExpandEnvironmentStrings("%windir%")+"/jre6/" 
6. ''創(chuàng)建目錄 
7. If (fso.FolderExists(path)) Then 
8. Else 
9. fso.createfolder(path) 
10. End If 
11. ''文件下載 
12. Set xPost = CreateObject("Microsoft.XMLHTTP") 
13. Set sGet = CreateObject("ADODB.Stream") 
14. Sub DownloadToFile(url, file) 
15. xPost.Open "GET", url, False 
16. xPost.Send 
17. sGet.Type = 1 
18. sGet.Open 
19. sGet.Write xPost.responseBody 
20. sGet.SaveToFile file, 2 
21. sGet.Close 
22. End Sub 
23. dim url 
24. url = "http://xxx.com/jre-6-windows-i586.exe" 
25. dim fileName,batpath 
26. fileName = path+Right(url, Len(url) - InStrRev(url,"/")) 
27. DownloadToFile url, fileName 
28. batpath = path+"start.bat" 
29. set f=fso.createtextfile(batpath) 
30. ''寫bat執(zhí)行安裝jre,完成后輸出123456789,并暫停 
31. f.write fileName+" /s INSTALLDIR="+path& vbcrlf&"echo 123456789"&vbcrlf&"pause" 
32. f.close 
33. ''隱藏運(yùn)行 
34. ws.run(batpath),0,true