Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        Dim Computer As String = "Max"
        Dim WMIService As Object
 
        'Dim WMIService As Object = Locator.ConnectServer(Computer, 
        ' "root\cimv2") ' Local
 
        Dim Locator As Object = CreateObject("WbemScripting.SWbemLocator")
        WMIService = Locator.ConnectServer(Computer, "root\cimv2", _
          "Administrator", "strenggeheimesadminpasswort")
        WMIService.Security_.ImpersonationLevel = 3
 
        listProcessesAndUsers(WMIService)
 
        Dim oProcess As Object = WMIService.Get("Win32_process")
        oProcess.Create("C:\Winnt\notepad.exe")
 
        listProcessesAndUsers(WMIService)
    End Sub
 
    Private Sub listProcessesAndUsers(ByVal WMIService As Object)
        Dim user As String
        Dim domain As String
        Dim Processes As WbemScripting.SWbemObjectSet = WMIService.ExecQuery( _
          "select * from win32_process")
        Dim Process As Object
        For Each Process In Processes
            Try
                If Process.GetOwner(user, domain) = 0 Then
                    Debug.WriteLine("Process " & Process.Caption & " belongs to" & _
                      "" & domain & "\" & user)
                Else
                    Debug.WriteLine("Problem getting the owner for process " & _
                      Process.Caption)
                End If
            Catch ex As Exception
                Debug.WriteLine(ex.Message)
            End Try
        Next
    End Sub