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)


相关推荐

  • 简单软件激活成功教程入门

    简单软件激活成功教程入门一、激活成功教程准备:组合一:侦壳language.exe脱壳AspackDie.exe反编译W32Dasm黄金中文版十六进制编辑器UltraEdit组合二:PEidOllydbg二、

  • pycharm的配置_pycharm添加编译器

    pycharm的配置_pycharm添加编译器一、Pycharm简介与安装简介Pycharm与VScode一样,都可以作为python的可视化IDE,功能很强大,可以帮助我们提高编程的效率。包括调试、语法高亮、Project管理、代码跳转、智能提示、自动完成、单元测试、版本控制等。安装作为一个穷孩子,建议还是安装社区免费版,因为社区免费版与专业版无差别,功能是齐全的。安装地址在这里!二、Pycharm配置作为python编程的ID…

  • pycharm过期了_pycharm到期怎么延长

    pycharm过期了_pycharm到期怎么延长pycharm的LICENSE过期1.把jetbrains-agent.jar复制到bin目录下,我的是在download里,找了半天才找到2.vmoptions64和vmoptions最后加上-javaagent:/目录/jetbrains-agent.jar一定不要写错,写错出不来注册框3.注册框弹出来,选择Licenseserver方式,地址填入:http://jetbrain…

  • Java 注解与反射

    Java 注解与反射

  • python重复执行10次_卡bug

    python重复执行10次_卡bugpy3Fdfs修复几个bugpy3Fdfs2.2.0TypeError:typeobjectargumentafter**mustbeamapping,notstrdownload_to_file(local_filename,remote_file_id),提示mustbebytes[],notstrPython3struct格式化下载30k文件出现sock…

    2022年10月21日
  • PHP接口上传参数返回参数混淆

    PHP接口上传参数返回参数混淆

发表回复

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

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