－－－－－－－－－－－－－－－－－－－－－－－－－－－

 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   
   
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－