需要监视一个进程

我在写一个vb脚本来监视一个进程。该脚本监视过程的状态，如果该进程没有因为10分钟运行它应该执行一个command.Below是我的脚本：需要监视一个进程

set objWMIService = GetObject ("winmgmts:") 
    foundProc = False 
    procName = "calc.exe" 

    Dim wshell 

    ' Initialise the shell object to return the value to the monitor 
    Set wshell = CreateObject("WScript.Shell") 
    if err.number <> 0 then 
        WScript.Echo "Error: could not create WScript.Shell (error " & err.number & ", " & err.Description & ")" 
        WScript.quit(255) 
    end if 

    for each Process in objWMIService.InstancesOf ("Win32_Process") 
     If StrComp(Process.Name,procName,vbTextCompare) = 0 then 
      foundProc = True 
      procID = Process.ProcessId 
     End If 
    Next 

#####code to check the proces status 

    If foundProc = True Then 
     WScript.Quit(0) 


    Else 

     WScript.sleep(1*60*1000) 
     If foundProc = True Then 
     WScript.Echo "Found Process (" & procID & ")" 
     Else 
      WScript.Echo "Process not running since 10 mins" 
      WScript.Quit(0) 

     End If 

    End If

来源

2015-05-06 rahnik67

我有查询，如果我执行脚本，如果假设进程停止一分钟脚本eexcutes后。下一次迭代将在10分钟后检查状态。所以9分钟的差距是巨大的。我需要连续监视它，并且应该在10分钟后开始执行命令。 – rahnik67

Set WshShell = WScript.CreateObject("WScript.Shell") 
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set objEvents = objWMIService.ExecNotificationQuery _ 
    ("SELECT * FROM Win32_ProcessTrace") 

Do 

    Set objReceivedEvent = objEvents.NextEvent 
    If objReceivedEvent.ProcessName = "svchost.exe" then msgbox objReceivedEvent.ProcessName 
' msgbox objReceivedEvent.ProcessName 
Loop

你也有Win32_ProcessTraceStart和Win32_ProcessTraceStop。以上代码都是。

在WScript.Shell上进行错误检查也是毫无意义的。这是一个系统组件 - 它应该可用。此外，如果它不是你的脚本不会运行，因为wscript不可用来运行你的脚本。

来源

2015-05-06 10:18:22 Trigger

需要监视一个进程

回答

相关问题