>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 >>