Win下tomcat宕机自启vbs脚本[通俗易懂]

Win下tomcat宕机自启vbs脚本[通俗易懂]将此下面的代码保存到一个.txt文件中,然后将后缀名命名为.vbs,再然后双击运行即可。注意要修改的地方:1.检查tomcat是否挂掉的访问路径,即下面代码中的:http://localhost:8080?a="&now2.一定要先切到bat所在目录WshShell.CurrentDirectory="D:\ProgramFiles\apache-tomcat-9.0….

大家好,又见面了,我是你们的朋友全栈君。

将此下面的代码保存到一个.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.CurrentDirectory="D:\Program Files\apache-tomcat-9.0.10-windows-x64\apache-tomcat-9.0.10\bin\"

shutdown="D:\Program Files\apache-tomcat-9.0.10-windows-x64\apache-tomcat-9.0.10\bin\shutdown.bat"

WshShell.Run "cmd /c "& Chr(34) & shutdown & Chr(34)

WScript.Sleep(5000)          
 
startup="D:\Program Files\apache-tomcat-9.0.10-windows-x64\apache-tomcat-9.0.10\bin\startup.bat"

WshShell.Run "cmd /c"& Chr(34) & startup & Chr(34)

if (fso.fileexists("C:\tomcat重启记录文件.txt")) then
'打开文件,参数1为forreading,2为forwriting,8为appending
set file=fso.opentextfile("C:\tomcat重启记录文件.txt",8,true)
file.writeline "tomcat在" 
file.writeline now
file.writeline "自动重启了一次" 
ts.writeblanklines 2 
file.close   
else
'创建文件,参数1为forreading,2为forwriting,8为appending
set file=fso.createtextfile( "C:\tomcat重启记录文件.txt",2,ture)
 
'写入文件内容,有三种方法:write(x)写入x个字符,writeline写入换行,writeblanklines(n)写入n个空行
file.writeline "tomcat在" 
file.writeline now
file.writeline "自动重启了一次" 
file.writeblanklines 2 
file.close   
end if      
end if 
WScript.Sleep(30000)  
 
loop

 

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/163638.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • CPU分支预测_流水线条件分支

    CPU分支预测_流水线条件分支文章目录1.CPU指令流水线2.分支预测的方法2.1分支预测的作用2.2分支预测的方法2.2.1静态预测2.2.2动态预测2.2.3其它预测3.分支预测的实例1.CPU指令流水线CPU在执行指令的时候,一条指令并不是一下就完成的,会有生命周期,例如很经典的有MIPS五级流水线,一条指令执行完毕需要五步取指(instructionfetch):将指令从存储器里面取出来译码(instructiondecode):将指令从存储器中读取出来执行(instructionexecute)

  • git config配置

    git config配置

  • Java中String转换为JSONArray发生错误[通俗易懂]

    Java中String转换为JSONArray发生错误[通俗易懂]直入主题:一个Map里面,有两种String:第一种解析的字符串结构keywords:[{keyword=关键字,matchType=1},{keyword=关键字,matchType=1}]这里假设Stringstr1=[{keyword=关键字,matchType=1},{keyword=关键字,matchType=1}]第二种解析的字符串结构keywords:[{…

  • Win10安装程序修复计算机,directx修复工具win10最新版

    Win10安装程序修复计算机,directx修复工具win10最新版directx修复工具win10最新版是一款以排除电脑软件异常导致的无法正常使用问题而特别打造的优质工具。全自动的智能检测修复功能能够确保用户们因为程序问题而导致的电脑异常无法使用都得到解决。directx修复工具win10最新版功能1、Directx修复增强版是一个系统DirectX组件修复工具,主要用于检测当前系统的DirectX状态。2、发现异常就进行修复。DirectX修复工具可以完美解决…

  • 简述nginx日志管理切割日志(亲测可行)

    简述nginx日志管理切割日志(亲测可行)

  • 看看行不行「建议收藏」

    看看行不行「建议收藏」支持FreakshareRapidgatorHotfileKeep2shareRyushareFilepostLumfileBitshareFilefactoryExtabitNetloadUploaded.toUl.toCtdisk等主流网盘会员直接高速下载!Ctdisk城通网盘/Dbank华为网盘完全免费!http://wishuhappy.com/[@Ie4Gy

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号