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 ie As IEnumerator
        Dim user As String
        Dim domain As String
        Dim sid As String
        p.Scope.Connect()
        If Not (p.Scope.IsConnected()) Then
            MsgBox("Nicht verbunden!") : Return
        End If
        ie = p.GetInstances.GetEnumerator
        While ie.MoveNext()
            cp = CType(ie.Current, ROOT.CIMV2.Win32.Process)
            cp.GetOwner(domain, user)
            cp.GetOwnerSid(sid)
            MessageBox.Show("Processname: " + cp.Name + " Domain: " + domain + _
              " User: " + user + " SID: " + sid)
        End While