Dim m As New System.Management.ManagementClass(New _
          Management.ManagementPath("Win32_Process"))
        Dim p As New ROOT.CIMV2.Win32.Process(m)
        Dim cp As ROOT.CIMV2.Win32.Process
        Dim user As String
        Dim domain As String
        Dim sid As String
        Dim host As String = System.Environment.MachineName '// Lokale Maschine
        Dim op As New System.Management.ConnectionOptions
        op.Password = "PASSWORD"
        op.Username = "USERNAME"
        Dim ms As New System.Management.ManagementScope(New _
          System.Management.ManagementPath("\\" + host + "\root\cimv2"), op)
        For Each cp In p.GetInstances(ms, "name <> 'System Idle Process'")
            cp.GetOwner(domain, user)
            cp.GetOwnerSid(sid)
            Me.ListBox1.Items.Add("Processname: " + cp.Name + " Domain: " + _
              domain + " User: " + user + " SID: " + sid)
        Next