windows系统环境下，让tomcat自动重启的脚本

如果你使用的是Windows系统，并且想让tomcat挂掉之后自动重启的话，可以直接复制下面的代码，然后保存到一个文本文件中，然后将后缀名命名为.vbs，再然后双击运行即可。如：tomcat自动重启脚本.vbs
这里稍微解释一下，几点值得注意的内容：

1.检查tomcat是否挂掉的访问路径，即下面代码中的：http://xxxxx(指定一个项目的访问路径，可以是网站首页等)?a=" & now。为什么后面要加一个参数a呢?而参数的值为now呢？在vbs中，now是代表当今时间的一个变量，而我们每一次去访问那个路径，检查tomcat是否挂掉的时候，带上一个参数，而参数的值为当前的时间，就可以避免缓存问题，达到每一次访问的路径都是一个新的路径。

2.WshShell.Run(“startup.bat”) 是执行一个叫startup的bat文件，其实就是执行一个Windows的批处理，而我这个脚本是放在tomcat的startup.bat文件同级目录的，所以这里直接写WshShell.Run(“startup.bat”) 就可以了，你可以根据自己的需求，改一下里面的路径即可。
以下是脚本的内容

on   error   resume   Next       
 
Dim   a
 
a   =   True    
 
set   WshShell   =   WScript.CreateObject("WScript.Shell") 
 
set fso=createobject("scripting.filesystemobject")
 
Do   While   a     
 
set   http   =   CreateObject("Microsoft.XMLHTTP")      
 
http.open   "GET","http://xxxxx(指定一个项目的访问路径，可以是网站首页等)?a=" & now,false 
 
http.send       
 
if   http.Status <> 200   Then  
 
WshShell.Run("shutdown.bat")     
 
WScript.Sleep(10000)          
 
WshShell.Run("startup.bat")  
 
if (fso.fileexists("C:\Users\iteam\Desktop\tomcat重启记录文件.txt")) then
'打开文件，参数1为forreading，2为forwriting，8为appending
set file=fso.opentextfile("C:\xxxx.txt",8,true)
file.writeline "tomcat在" 
file.writeline now
file.writeline "自动重启了一次" 
ts.writeblanklines 2 
file.close   
else
'创建文件，参数1为forreading，2为forwriting，8为appending
set file=fso.createtextfile( "C:\xxxx.txt",2,ture)
 
'写入文件内容，有三种方法：write(x)写入x个字符，writeline写入换行，writeblanklines(n)写入n个空行
file.writeline "tomcat在" 
file.writeline now
file.writeline "自动重启了一次" 
file.writeblanklines 2 
file.close   
end if      
end if 
WScript.Sleep(30000)  
 
loop