[VBS] 파라미터로 다수의 프로세스 실행 상태 확인

파라미터로 다수의 프로세스 실행 상태 확인
VBS VBScript VB Script

Set oArgs = WScript.Arguments

If oArgs.Count = 0 Then

WScript.Quit

End If

State = 0

Message = ""

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")

For i = 0 to oArgs.Count - 1

Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = '"& oArgs(i) & "'")

If colProcesses.Count = 0 Then

Message = Message & oArgs(i) & ", "

State = 1

End If

Set colProcesses = Nothing

Next

Set objWMIService = Nothing

If State = 1 Then

WScript.Echo Left(Message,Len(Message)-2) & " 프로세스가 실행 중이지 않습니다."

WScript.Echo "Status: Bad"

Else 

WScript.Echo "모든 프로세스가 실행 중입니다."

WScript.Echo "Status: Good"

End If