Vbs脚本定时判断及启动tomcat服务
说到tomcat服务，我们大家都会联系到apache，那apache和tomcat有什么区别呢，apache是web服务器（静态解析，如HTML），tomcat是java应用服务器（动态解析，如JSP、PHP）tomcat只是一个servlet(jsp也翻译成servlet)容器，可以认为是apache的扩展，但是可以独立于apache运行，两者从以下几点可以比较的： 1、两者都是apache组织开发的 。2、两者都有HTTP服务的功能 。3、两者都是开源免费的 。当然对于一个java开发人员来是说tomcat服务应用的比较多了，为什么这没说呢，因为对于一个java开发人员来说日常应用的开发工具比如eclipse或者idea开发工具都会集成tomcat服务来进行相关代码测试。好了废话不多说了，今天呢主要借此分享一下我在运维工作中遇到的一个问题。
我们公司的主页是通过java开发的，然后到处.war包运行在tomcat服务下，我们公司的tomcat服务是运行在windows上，其实tomcat服务运行在windows和linux下完全一样，主要取决于个人爱好问题，当然也有人能说运行在linux下比较稳定，我也不排除这样的说法哦，之前公司的开发人员就部署到了windows上所以就以此来运维了。因为公司的很多服务都是嵌套的，这也许是 开发的架构问题，所以近期问题有很多，导致tomcat服务不稳定，无缘无故自动停止的问题，为了解决这个问题，我通过vbs服务进行tomcat服务的处理，定期执行脚本判断进程中是否有tomcat服务的进程(java)来保证tomcat服务运行正常。
对于在windows上的tomcat安装及部署就不多介绍了，在之前的文章中有详细介绍，我们下载apache for tomcat解压后然后进入tomcat解压目录下的bin目录下运行startup.sh文件就可以启动tomcat服务了，为了更好的保证tomcat服务的运行，有很多人讲tomcat服务设置为一个windows服务进行运行的， 那怎么做呢，具体见下：
比如我的tomcat解压安装目录问c:\apache-tomcat8.0.0,通过运行命令提示符---win+r---cmd---Cd c:\apache-tomcat8.0.9\bin 通过cd的方式进入apache-tomcat安装路径下的bin目录，然后执行
Service.bat install
命令，讲会设置tomcat服务作为一个windows服务运行过，同样我们也可以使用Service.bat remove命令取消tomcat作为一个windows服务。
然后我们通过运行services.msc打开服务管理，就看见tomcat设置为了一个windows服务
我们可以通过运行以下命令删除tomcat作为一个windows服务
service.bat remove
对于设置windows服务我就不多说了，主要说说，通过vbs脚本如何判断进程中是否运行一个服务，如果没有那就启动（1分钟判断一次），脚本示例如下：作为一个windows服务进行判断。注:在此我们可以设置任何服务进行判断的
Dim WshShell, ProgramPath
ProgramPath="""C:\apache-tomcat-8.0.9\bin\startup.bat"""
Set WshShell=WScript.CreateObject("WScript.Shell")
Do
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where name=‘java.exe‘")
if wmiObjects.count > 0 Then
WScript.sleep 1000*60*1
Elseif wmiObjects.count = 0 Then
WshShell.Run ProgramPath,2
End If
Loop如果tomcat服务不是一个windows服务的话，我们需要通过cmd进行调用启动，所以脚本见下：
运行启动startup.bat,启动后进程中有java.exe
Dim WshShell, ProgramPath
ProgramPath="C:\apache-tomcat-8.0.9\bin\startup.bat"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.CurrentDirectory="C:\apache-tomcat-8.0.9\bin\"
Set fso=CreateObject("scripting.filesystemobject")
If fso.fileExists(ProgramPath) Then
‘MsgBox "1"
WshShell.Run "cmd.exe /c "& Chr(34) & ProgramPath & Chr(34) &" & pause "
Else
‘MsgBox "2"
End If
我们以上代码发现，运行后多出现一个命令提示符进行确认的，因为我们需要使用windows的计划任务进行处理判断，所以就不需要添加时间进行代码判断了，所以脚本再次优化：（建议使用该脚本）
Dim WshShell, ProgramPath
ProgramPath="C:\apache-tomcat-8.0.9\bin\startup.bat"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.CurrentDirectory="C:\apache-tomcat-8.0.9\bin\"
Set fso=CreateObject("scripting.filesystemobject")
If fso.fileExists(ProgramPath) Then
‘MsgBox "1"
WshShell.Run "cmd.exe /c "& Chr(34) & ProgramPath & Chr(34)
Else
‘MsgBox "2"
End If
如果需要通过时间进行判断需要更新代码，比如10分钟判断一次，然后运行程序脚本如下：
Dim WshShell, ProgramPath
ProgramParentPath="C:\apache-tomcat-8.0.9\bin\"
ProgramPath=ProgramParentPath & "startup.bat"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.CurrentDirectory=ProgramParentPath
Do
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where name=‘java.exe‘")
If wmiObjects.count = 0 Then
WshShell.Run "cmd.exe /c "& Chr(34) & ProgramPath & Chr(34) &"",0
WScript.Quit
End If
WScript.Sleep 60*1000*1
Loop然后我们可以通过系统的计划任务来定时执行即可
注：创建计划任务的时候，建议以本地用户登陆并且创建
开始运行Taskschd.msc
新建任务计划
设置计划任务名称及运行所有者，在此我们使用本地administrator及设置不管用户是否登陆都要运行
添加触发器，运行时间的设置
添加操作，选则执行脚本
添加设置
运行完成
本文出自 “高文龙” 博客，请务必保留此出处http://gaowenlong.blog.51cto.com/451336/1670983
原文地址：http://gaowenlong.blog.51cto.com/451336/1670983
