on error resume Next
Dim a
a = True
set WshShell = WScript.CreateObject("WScript.Shell")
Do While a
set http = CreateObject("Microsoft.XMLHTTP")
http.open "get","项目地址",false
http.send
if http.Status > 300 then
WshShell.Run "cmd /c shutdown.bat",3
WScript.Sleep(10000)
set fso=CreateObject("scripting.filesystemobject")
on error resume next
set sfold=fso.getfolder("删除项目地址")
sfold.attributes=0
sfold.delete
if err then msgbox "can't find fold"
WshShell.Run "cmd /c startup.bat",3
end if
WScript.Sleep(30000)
loop
直接放到tomcat bin目录执行
停止脚本,打开任务管理器,将“wscript.exe”结束掉即可。