Win下tomcat宕机自启vbs脚本

最新推荐文章于 2019-03-19 10:56:33 发布

Iceylin

最新推荐文章于 2019-03-19 10:56:33 发布

阅读量947

点赞数 1

文章标签： tomcat 自动重启 vbs windows

本文链接：https://blog.csdn.net/iceylin/article/details/81109630

版权

创建一个VBS脚本，通过修改特定访问路径检测Tomcat是否宕机，并在宕机时自动重启。需注意设置脚本运行目录至Tomcat bin文件夹，以避免闪退问题。使用cmd命令进行shutdown和startup操作。

摘要由CSDN通过智能技术生成

将此下面的代码保存到一个.txt文件中，然后将后缀名命名为.vbs，再然后双击运行即可。

注意要修改的地方：

1.检查tomcat是否挂掉的访问路径，即下面代码中的：http://localhost:8080?a=" & now

2.一定要先切到bat所在目录 WshShell.CurrentDirectory="D:\Program Files\apache-tomcat-9.0.10-windows-x64\apache-tomcat-9.0.10\bin\"，否则导致闪退

3.WshShell.Run cmd /c "& Chr(34) & shutdown & Chr(34) ，先shutdown再startup

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://localhost:8080?a=" & now,false 
 
http.send       
 
if   http.Status <> 200   Then  

'一定要先切到bat所在目录
WshShell.CurrentDir