Dim sPath As String = "LDAP://dc=mydomain,dc=de"
        Dim Directory As New DirectoryEntry(sPath, "Administrator", _
          "secretPassword")
        Dim Searcher As New DirectorySearcher(Directory)
        Dim SearchResultColl As SearchResultCollection
 
        Searcher.Filter = "(objectClass=user)"
        SearchResultColl = Searcher.FindAll()
        Dim result As SearchResult
 
        For Each result In SearchResultColl
            Dim User As New System.DirectoryServices.DirectoryEntry(result.Path)
            ListBox1.Items.Add("Properties for: " & User.Properties("cn").Item( _
              0).ToString() & "*********")
            For Each propName As String In User.Properties.PropertyNames
                Dim prop As Object = User.Properties(propName)
                If Not prop Is Nothing And prop.count > 0 Then
                    ListBox1.Items.Add(propName & "=" & prop.Item(0).ToString())
                End If
            Next propName
        Next result

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist