Window 에서 프로세스 확인

간단하게 Windows에서 현재 떠있는 프로세스 명과 프로세스 ID 를 보여주는 소스 입니다.

    dim processID
   
    Set WshShell = CreateObject("WScript.Shell")
    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
   
    For Each objItem In colItems
       processID = objItem.ProcessID
       WScript.Echo processID & " " & objItem.Caption
    Next

잠깐 확인할게 있어서 만든거라 기능은 전혀없으며..-_-
향후 unix의 ps와 같은 기능으로 변경하여 올리겠습니다.