VBScript实现关闭窗口问题

三千水军保裆 发布于 2013/12/10 17:24
阅读 257
收藏 0

由于工作中项目的测试服务器性能不强, 在客户进行操作的时候,weblogic 有的时候会死掉。。 

所以使用了下面的这个程序 来实现重启weblogic,  但是却出现了一些问题,   重启weblogic的时候需要关闭weblogic之前打开的控制台窗口,但是控制台窗口一直关不掉, 请各位大哥,大姐指点一二呀。。

on error resume Next
Dim a
a = True

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

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

if http.Status > 299 then   
    set ts =fs.opentextfile("log.txt",8,true)
	
	windowName = "C:\Windows\System32\cmd.exe"
	Set objWord = CreateObject("Word.Application")
	Set colTasks = objWord.Tasks
	if colTasks.Exists(windowName) then 
	 colTasks(windowName).Close
	end if
	objWord.Quit
	WScript.Sleep(2000)
	
    WshShell.Run("D:\bea\user_projects\domains\maximogw\startWebLogic.cmd")
    WScript.Sleep(30000)
    WshShell.Run("D:\bea\user_projects\domains\maximogw\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



加载中
返回顶部
顶部