|
|
От: |
_kOSt_
|
|
| Дата: | 07.01.04 08:12 | ||
| Оценка: | 33 (2) | ||
Dim c As New ManagementClass("Win32_Process")
Dim o As ManagementObject
Dim args() As Object = {"", ""}
For Each o In c.GetInstances()
o.InvokeMethod("GetOwner", args)
Console.WriteLine(o.Item("Name") & "-" & args(0) & "\" & args(1))
Next o