检测tomcat服务,实现崩溃自动重启并发送邮件提醒

场景需求

tomcat偶尔并不是那么稳定,可能在长时间运行时突然就崩掉了,任何接口都得不到处理,没有返回值,当然,我们需要对各种参数进行配置,实现调优。当然的当然,最大的原因还是在于部署其中的代码,而这又是和我们的水平密切相关的TAT~
很多企业仍然会将tomcat用于生产环境,这个时候出现崩溃就比较棘手,有时候运营那边大半夜或者周末一个电话,我们就不得安宁了。。。
本文通过简短的VB脚本,实现对tomcat服务进行定时检测,当服务持续出现失败时,对tomcat进行重启,并发送邮件通知自己。
当然,重启可不是用来解决问题的根本的,所以,本文仅做参考!不过还是能应一时之需,也是一种手段。

进入主题

1).准备工作
你需要一个用来测试tomcat是否活着的接口,写得越轻越好,什么逻辑都不需要,返回固定的字符串。
比如,我准备的接口的地址是http://localhost:9080/iCheck_sziit/ServiceTest,访问成功返回字符串:yisinian
2).学习如何使用blat324发送邮件,可以自行百度。下载(https://sourceforge.net/projects/blat/)好了之后,修改配置文件,运行目录下的.bat文件,即可实现发送邮件,非常好用。记得使用的邮箱开启对应的服务,否则收不到邮件。本文的vb代码和blat324使用的代码有需要可以留邮箱,因为不是本文主题就不贴配置代码(我真的会配置)~我是来骗评论的==
blat324搞定之后你所需要调用的只有一个.bat文件了。
3).贴我的完整VB代码:

rem option explicit
 on error resume next 
 dim str,str1
 str = "yisinian"

 do while 1

  set objXML = createObject("MSXML2.ServerXMLHTTP")
  set objFSO = createObject("Scripting.FileSystemObject")
  const ForAppending = 8
  objXML.open"get","http://localhost:9080/iCheck_sziit/ServiceTest",false
  objXML.send()
  str1 = objXML.responseText
if objXML.responseText = "" then 

    if not objFSO.fileexists("log.ini") then
        set objFile = objFSO.createTextFile("log.ini")
        objFile.close
    End if

    set fso = objFSO.openTextFile("log.ini",8)
    strnow = now 

   createobject("wscript.shell").run "C:\apache-tomcat-6.0.44-1\bin\shutdowm.bat",0

   rem "发送邮件"
   createObject("wscript.shell").run "C:\blat324\full\sendmail.bat",0

   wscript.sleep 10*1000
   createobject("wscript.shell").run "C:\apache-tomcat-6.0.44-1\bin\startup.bat",0
    with fso
       .writeline strnow&" "&"---------程序启动------------"
       .writeline strnow&" "&"检查地址 http://localhost:9080/iCheck_sziit/ServiceTest 访问失败 tomcat 运行出错"
       .writeline strnow&" "&"启动服务器 执行命令 cmd.exe /c C:\apache-tomcat-6.0.44-1\bin\startup.bat 执行成功" 
    end with

else  if instr(str1,"yisinian")>0 then

    set objTextFile = objFSO.openTextFile("aaa.ini",ForAppending,True)
       if not objFSO.fileexists("aaa.ini") then
        set objFile = objFSO.createTextFile("aaa.ini")
        objFile.close
       End if

    objTextFile.writeline(objXML.responseText)
    objTextFile.close
    else
     set fso = objFSO.openTextFile("log.ini",8)
     strnow =now 
     fso.writeline strnow&" "&"------iCheck_sziit项目没有正常运行---------"
     fso.close
    end if 
end if
  wscript.sleep 30*1000
 loop

稍微解释一下,无限循环并通过末尾的sleep实现定时访问准备好的接口。如果返回值是规定的字符串:yisinian,那么将返回值记录到文件aaa.ini中。
如果返回值有误,打印一些运行出错之类的日志到文件log.ini中,并且运行指定绝对路径中的关闭tomcat的.bat文件,调用sendmail.bat发送邮件,再运行指定的绝对路径中的tomcat的.bat启动文件。此处注意,本文代码中做在关闭tomcat之后作了一个10s的延时,因为通常项目较大时,关闭tomcat时要等几秒才能整个关闭完成~
好了,整个过程就是这样的了。正常执行的时候同路径下会生成aaa.ini和log.ini日志文件
当然,文件名和各种文件的绝对路径你都可以改掉。
这里,我保存成为了main.vbs文件

4).附加一个小功能,就是当main.vbs正常启动之后,也许检测tomcat的工作一直在后台进行,想关掉怎么办?并没有可视化界面,此处同样提供一段可运行的脚本文件,运行该文件,即可关掉前面正在运行的main.vbs:

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "taskkill /im wscript.exe /f",o,true

保存成后缀为vbs文件即可。

5).附:要脚本文件和blat324对应配置包留邮箱哦~看到就回 也可以发邮件到smile326@qq.com提醒我。 程序猿何必为难程序猿(笑脸)

相关文章
相关标签/搜索