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
 
        For Each cp In p.GetInstances
            cp.GetOwner(domain, user)
            cp.GetOwnerSid(sid)
            Debug.WriteLine("Processname: " + cp.Name + " Domain: " + domain + _
              " User: " + user + " SID: " + sid)
        Next