Imports System.DirectoryServices 'dll/Verweis einbinden

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Dim c_ServerName = "Server"
        Dim c_DomainenName = "Maier"
        Dim c_DomainenEndung = "local"
 
        Dim LDAPpfad As String = "LDAP://" & c_ServerName & "/CN=Users,DC=" & _
          c_DomainenName & ",DC=" & c_DomainenEndung
        Dim suche As DirectorySearcher
        Dim ergebnisliste As SearchResultCollection
        Dim ergebnis As SearchResult
 
        'Suchanfrag
        Const suchanfrage = "(&(objectclass=user)(cn=h*))"
 
        'Instanziierung der Klasse
        suche = New DirectorySearcher
 
        'Festlegen des Ausgangspunkt
        suche.SearchRoot = New DirectoryEntry(LDAPpfad)
 
        'Festlegung der LDAP-Query
        suche.Filter = suchanfrage
 
        'Suchtife festlegen
        suche.SearchScope = SearchScope.Subtree
 
        'Suche starten
        ergebnisliste = suche.FindAll()
 
        'Ergebnis ausgeben
        For Each ergebnis In ergebnisliste
            TextBox1.Text = (ergebnis, "Name")
        Next
 
    End Sub
End Class