dim pathset ws = CreateObject("WScript.Shell")set fso=createobject("scripting.filesystemobject")''定義安裝路徑path = ws.ExpandEnvironmentStrings("%windir%")+"/jre6/"''創建目錄If (fso.FolderExists(path)) ThenElse  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.CloseEnd Subdim urlurl = "http://xxx.com/jre-6-windows-i586.exe"dim fileName,batpathfileName = path+Right(url, Len(url) - InStrRev(url,"/"))DownloadToFile url, fileNamebatpath = 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