MOM监视服务器进程

今天来写一个用MOM监视服务器进程的VBS脚本，这个脚本的原理是监视当前服务器的进程表中是否有你想要监视的进程名，然后做一个判断，用这个脚本来监视JAVA小程序还有一些类似于ServerU的东西还是很好用的。

Const EVENT_TYPE_SUCCESS = 0
Const EVENT_TYPE_ERROR = 1
Const EVENT_TYPE_WARNING = 2
Const EVENT_TYPE_INFORMATION = 4
Const EVENT_TYPE_AUDITSUCCESS = 8
Const EVENT_TYPE_AUDITFAILURE = 16
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colMonitoredProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = ‘Calc.exe’")
    If colMonitoredProcesses.count = 0 Then
        CreateEvent 100,EVENT_TYPE_ERROR,"进程监视","进程意外退出！"
    Else
CreateEvent 200,EVENT_TYPE_SUCCESS,"进程监视","进程正常！"
   End If
Sub CreateEvent(intEventNumber,intEventType,strEventSource,strEventMessage)
    Set objEvent = ScriptContext.CreateEvent()
    objEvent.EventSource = strEventSource
    objEvent.EventNumber = intEventNumber
    objEvent.EventType = intEventType
    objEvent.Message = strEventMessage
    ScriptContext.Submit objEvent
End Sub

以上脚本中的Calc.exe就是你想要监控的进程名子，为了使这个脚本可以实现重用，你也可以把这个进程做为一个传入MOM的参数，这样就不必每次都复制一个同样的规则在MOM里边跑了。

欢迎交流。