Tomcat自动重启

-------------------------------------第一种，检测网页是否能打开，打不开则重启Tomcat-----------------------------------

on   error   resume   Next    
   
  Dim   a    
  a   =   True    
   
  set   WshShell   =   WScript.CreateObject("WScript.Shell")    
   
  Do   While   a    
  set   http   =   CreateObject("Microsoft.XMLHTTP")    
  http.open   "POST","http://www.163.com(所要检测的网址)",false    
  http.send    
  if   http.Status   >   300   then    
  WshShell.Run("net   stop   tomcat5")    
  WScript.Sleep(10000)    
  WshShell.Run("net   start   tomcat5")    
  end   if    
  WScript.Sleep(30000)    
  loop

-----------------------------------------第二种，定时三天重启一次Tomcat-------------------------------------------------- 

on   error   resume   Next    
   
  Dim   a    
  a   =   True    
   
  set   WshShell   =   WScript.CreateObject("WScript.Shell")    
   
  Do   While   a    
   
  WshShell.Run("net   stop   tomcat5")    
  WScript.Sleep(10000)    
  WshShell.Run("net   start   tomcat5")    
  WScript.Sleep(1000*60*60*24*3)    
  loop

 

----------------------------------------------------将以上内容保存成.VBS文件及可-------------------------------------------