檢測tomcat運(yùn)行狀態(tài)

1、問題描述：Tomcat 服務(wù)器經(jīng)常出現(xiàn)宕機(jī)現(xiàn)象，不能及時發(fā)現(xiàn)，影響用戶體驗。解決方案：使用VBS檢測tomcat的運(yùn)行狀態(tài)，若tomcat出現(xiàn)異常，則重啟啟動tomcat，并記錄tomcat異常代碼和異常時間，結(jié)合項目日志去查找原因。具體實(shí)現(xiàn)：軟件要求：（1） 安裝Jdk1.7，設(shè)置環(huán)境變量。JAVA_HOMECLASSPATH：.;%JAVA_HOME%libdt.jar;%JAVA_HOME%libtools.jar;（2） 安裝tomcat7在服務(wù)中產(chǎn)生Tomcat7服務(wù)項目部署：（3） 把項目copy到安裝版tomcat的webapps下（4） 配置數(shù)據(jù)源（5） 引用數(shù)據(jù)源腳本制作：（

2、6） 制作VBS腳本on error resume Next Dim aa = True'data="restart tomcat7->"set WshShell = WScript.CreateObject("WScript.Shell")set fs =createobject("scripting.filesystemobject") Do While a set http = CreateObject("Microsoft.XMLHTTP") http.open "GET"

3、,"60/dataCenter/js/lib/tree.js",false http.send 'set ts1 =fs.opentextfile("e:2.txt",8,true) 'ts1.write http.Status&now 'ts1.writeblanklines 1 'ts1.closeif http.Status > 299 then set ts =fs.opentextfile("C:TomcatMonitor.txt",8,true)

4、 WshShell.Run("net stop Tomcat7") WScript.Sleep(30000) WshShell.Run("net start Tomcat7") ts.write "error code:" ts.write http.Status ts.write "-error time:" ts.write now ts.writeblanklines 2 ts.closeend ifWScript.Sleep(60000) Loop調(diào)度任務(wù)：（7） 新建調(diào)度任務(wù)注意事項：瀏覽器設(shè)置：結(jié)果展示：當(dāng)tomcat因異常終止后，檢測腳本自動執(zhí)行腳本程序，并記錄異常代碼和異常發(fā)