Imports System.DirectoryServices
Module Module1
 
    Sub Main()
        Try
            Dim de As New DirectoryEntry("LDAP://DC=nwtraders,DC=msft", _
              "Administrator", "P@ssw0rd", AuthenticationTypes.Secure)
            'Dim de As New DirectoryEntry("LDAP://London/DC=nwtraders,DC=msft", 
            ' "Administrator", "P@ssw0rd", AuthenticationTypes.Secure)
 
            For Each blub As DirectoryEntry In de.Children
                Console.WriteLine(blub.Name)
            Next
            Console.ReadKey()
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
            Console.ReadKey()
        End Try
    End Sub
End Module