Tomcat实时监控，防止服务错误异常及当机，并自动重启修复。

entOSentOSfs.opentextfile("D:	omcat_sysMsg" & date & ".txt",8,true) 

WshShell.Run("net   stop   Tomcat8")     

WScript.Sleep(10000)          

WshShell.Run("net   start   Tomcat8")       



ts.write data      

ts.write "error code:"     

ts.write http.Status      

ts.write "-------error time:"     

ts.write now      

ts.writeblanklines 2      

ts.close    

end   if       

WScript.Sleep(30000)  

loop

　　

以上为vb脚本程序，进行实时监控，复制并保存为vbs格式文件。

http://localhost/aeolusPro/oa/system/SysOnline为指向的一个可能的页面，如果错误异常或者当机（现象：500错误、内存溢出、异常停止服务...等），判断页面返回的状态码，若状态不为200，则表示该页面未正常返回，可能是tomcat服务出了问题，随后自动重启tomcat服务，并记录日志，把日志记录在D盘，日志文件以tomcat服务名和当前日期命名。以上代码是每隔30秒访问一次被监控的页面。

另外：为了防止服务器重启，vbs脚本不再继续运行，需将此vbs文件放入任务计划中，设置成“在系统启动时运行”即可。