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
       p.Scope.Connect()
 If Not (p.Scope.IsConnected()) Then .............
 ie = p.GetInstances.GetEnumerator
        While ie.MoveNext()
                Dim pidstrb As New StringBuilder
                    cp = CType(ie.Current, ROOT.CIMV2.Win32.Process)
                    cp.GetOwner(domain, user)
                    cp.GetOwnerSid(sid)
...