[VBS]프로세스 실행 상태 모니터 스크립트(SCOM) SystemCenter2010. 9. 29. 13:18
VBScript VBS SCOM System Center Operations Manager
'비정상 상태 정의: Property[@Name='Status'] 같음 Good
'정상 상태 정의: Property[@Name='Status'] 같음 Bad
'경고 설명: $Target/Host/Property[Type="Windows!Microsoft.Windows.Computer"]/DNSName$의 $Data/Context/Property[@Name='Message']$
Dim oAPI, oBag, strProcess
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
strProcess = "Process.exe"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = '" & strProcess & "'")
if colProcesses.Count >= 1 Then
strMSG ="프로세스 " & strProcess & "가 " & colProcesses.Count & "개 실행 중입니다."
State = "Good"
Else
strMSG ="프로세스 " & strProcess & "가 실행 중이지 않습니다."
State = "Bad"
End If
Set colProcesses = NOTHING
Call oBag.AddValue("Message",strMSG)
Call oBag.AddValue("Status",State)
Call oAPI.Return(oBag)