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

上一篇： VB.NET中的TextBox控件详解
下一篇： .Net Remoting 实战之----TCP Channel（vb.net实现）