Found another article that described this very nice. Thanks.
Imports System.Management
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim processes() As Process
processes = Process.GetProcesses
'For Each p As Process In processes
Dim args(1) As Object
Dim ms As New ManagementObjectSearcher("SELECT * FROM Win32_Process") ' WHERE ProcessId = " & p.Id)
Debug.WriteLine( "Domain: User")
For Each mo As ManagementObject In ms.Get
If CUInt(mo.InvokeMethod("GetOwner", args)) = 0 Then
ListBox1.Items.Add(args(1).ToString & ": " & args(0).ToString)
End If
Next
'Next
End Sub
|