检测tomcat运行状态

问题描述：
Tomcat 服务器经常出现宕机现象，不能及时发现，影响用户体验。

解决方案：
使用VBS检测tomcat的运行状态，若tomcat出现异常，则重启启动tomcat，并记录tomcat 异常代码和异常时间，结合项目日志去查找原因。

具体实现：
软件要求：
（1）安装Jdk1.7，设置环境变量。

JA V A_HOME：C:\Program Files\Java\jdk1.7.0_51
CLASSPATH：.;%JA V A_HOME%\lib\dt.jar;%JA V A_HOME%\lib\tools.jar; （2）安装tomcat7在服务中产生Tomcat7服务
项目部署：
（3）把项目copy到安装版tomcat的webapps下
（4）配置数据源
（5）引用数据源
（6）制作VBS脚本
on error resume Next
Dim a
a = 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","http://10.214.7.160/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.close
if http.Status > 299 then
set ts =fs.opentextfile("C:\TomcatMonitor.txt",8,true) 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.close
end if
WScript.Sleep(60000)
Loop
调度任务：
（7）新建调度任务
注意事项：浏览器设置：
结果展示：
当tomcat因异常终止后，检测脚本自动执行脚本程序，并记录异常代码和异常发生时间。

当重启机器时或手动杀死tomcat7.exe线程时，检测程序同样会重启服务保证项目正常运行，提高系统稳定性，减少用户不便。