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

这篇文章主要介绍了vbs脚本实现下载jre包并静默安装的代码实例,通过本文可以学到VBS中下载远程文件的方法、静默安装jre包的方法,需要的朋友可以参考下

安装完成后可以回调，替换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. ''创建目录 
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执行安装jre,完成后输出123456789,并暂停 
31. f.write fileName+" /s INSTALLDIR="+path& vbcrlf&"echo 123456789"&vbcrlf&"pause" 
32. f.close 
33. ''隐藏运行 
34. ws.run(batpath),0,true