注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

love3400wind的blog

like

 
 
 

日志

 
 
 
 

windows 下 weblogic自动重启  

2011-09-01 16:21:13|  分类: IT |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

on   error   resume   Next    

Dim   a    
a   =   True

data="restart tomcat6------------>"
   
set   WshShell   =   WScript.CreateObject("WScript.Shell")

set fs =createobject("scripting.filesystemobject")
   
Do   While   a    
set   http   =   CreateObject("Microsoft.XMLHTTP")    
http.open   "GET","http://ip:port/",false
http.send    

if   http.Status   >   299   then  
    set ts =fs.opentextfile("log.txt",8,true)

    WshShell.Run("C:\bea10\user_projects\domains\domain\bin\stopWebLogic.cmd")
    WScript.Sleep(10000)    
    WshShell.Run("C:\bea10\user_projects\domains\domain\bin\startWebLogic.cmd")

    ts.write data
    ts.write "error code:"
    ts.write http.Status
    ts.write "-------error time:"
    ts.write now
    ts.writeblanklines 2
    ts.close

end   if    
WScript.Sleep(30000)
loop

  评论这张
 
阅读(1930)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017