通过WMI列出Windows系统进程（VB.net）

Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Process")

For Each cmicWmiObj As ManagementObject In cmicWmi.Get

ListBox1.Items.Add("Service: " + cmicWmiObj("Name") + " FilePath: " + cmicWmiObj("ExecutablePath"))

Next