-------------------------------------第一种,检测网页是否能打开,打不开则重启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文件及可-------------------------------------------