windows下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   tomcat6")    
WScript.Sleep(10000)    
WshShell.Run("net   start   tomcat6")    
end   if    
WScript.Sleep(1000*60*60*24*3)    
loop

把它保存成文件(后缀名为vbs)后双击运行就行了