[VBNET] [WMI] 현재 실행 중인 프로세스 조회 (Process Search)

* VBNET WMI 를 이용한 현재 실행 중인 프로세스 조회 (Process Search)

- WMI 를 사용하기 위해 참조 -> System.Management dll 을 추가 -> 소스 코드 imports System.Management

 

메인화면

 

전체 소스 코드

Form1.vb

 

Imports System.Management

Public Class Form1

    Dim strQry As String = "Select Name, ProcessID, ExecutablePath, WorkingSetSize From Win32_Process"

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

        '리스트뷰 아이템 초기화
        lv.Items.Clear()

        Dim oWMI As ManagementObjectSearcher = New ManagementObjectSearcher(New SelectQuery(strQry))

        For Each oItem As ManagementObject In oWMI.Get()

            Try

                Dim lvi As ListViewItem = New ListViewItem()

                lvi.Text = oItem.GetPropertyValue("Name").ToString()
                lvi.SubItems.Add(oItem.GetPropertyValue("ProcessID").ToString())
                lvi.SubItems.Add(String.Format("{0:00}", CType(Integer.Parse(oItem.GetPropertyValue("WorkingSetSize").ToString()) / 1024, Double)) + " KB")
                lvi.SubItems.Add(oItem.GetPropertyValue("ExecutablePath").ToString())

                lv.Items.Add(lvi)

            Catch ex As Exception

            End Try

        Next


    End Sub

End Class

* 예제 결과

 

결과화면