Imports System.DirectoryServices Module Module1 Sub Main() Dim de As DirectoryEntry Dim Child As DirectoryEntry de = New DirectoryEntry("WinNT://" & Environment.MachineName & ",computer") 'Filter for only "User" entries. de.Children.SchemaFilter.Add("user") Console.WriteLine("USERS:") For Each Child In de.Children Console.WriteLine(" - " & Child.Name) Next Child Console.WriteLine() Console.WriteLine("GROUPS:") 'Clear the previous "User" filter. de.Children.SchemaFilter.Clear() 'Filter for only "Group" entries. de.Children.SchemaFilter.Add("group") For Each Child In de.Children Console.WriteLine(" - " & Child.Name) Next Child Console.WriteLine() Console.WriteLine("SERVICES:") 'Clear the previous "Group" filter. de.Children.SchemaFilter.Clear() 'Filter for only "Service" entries. de.Children.SchemaFilter.Add("service") For Each Child In de.Children Console.WriteLine(" - " & Child.Name) Next Child Console.ReadLine() End Sub End Module>I need to interrogate a domain to get a list of users then a list of groups each user is assigned to. Can someone point me to the proper class to do this.