安装完成后可以回调，替换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脚本经典教材(最全的资料还是MSDN)
—为什么要使用Vbs？在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘

Vbscript生成Excel报表的常用操作总结
使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持OfficeExcel2003版

MSScriptControl.ScriptControl组件的用法实例
Microsoft(R)Script控件使用户可以创建运行任何ActiveX(R)scripting引擎，例如Microsoft(R)VisualBasic(R)ScriptingEdition或Microsoft(R)JScript(TM)的应用程序。用户可以将任何Au