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
        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)
            MessageBox.Show("Processname: " + cp.Name)
            '//pp.GetOwner("..", "..")
        End While