Dim sPath As String = "LDAP://dc=meinefirma,dc=de"
 
        Dim de As New DirectoryEntry(sPath, "Administrator", "passwort")
        Dim searcher As New DirectorySearcher(de)
        Dim results As SearchResultCollection
        Dim result As SearchResult
 
        searcher.Filter = "(objectClass=user)"
        results = searcher.FindAll()
 
        For Each result In results
            Dim name As ResultPropertyValueCollection = result.Properties( _
              "name")
            ListBox1.Items.Add(name(0))
        Next result