Je cherche à lister tout les attributs Active Directory d'une classe mais pour le moment, je n'arrive qu'à afficher les attributs principaux :

J'ai trouvé cette discussion mais elle n'est pas résolu

Voilà le code que j'utilise :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ListProperties(ByVal node As TreeNode, ByVal entry As System.DirectoryServices.DirectoryEntry)
 
        Dim prop As PropertyValueCollection
        Dim o As Object
        Dim oneNode As String
        Dim propertyNode As New TreeNode("Properties")
        node.Nodes.Add(propertyNode)
 
        For Each prop In entry.Properties
            For Each o In prop
                    Try
                        oneNode = prop.PropertyName & ": " & o.ToString()
                    Catch
                        oneNode = prop.PropertyName & ": " & "No text representation."
                    End Try
                    propertyNode.Nodes.Add(New TreeNode(oneNode))
            Next
        Next
    End Sub
Je suis connecté en administrateur sur le serveur Active Directory, j'ai vérifié les droits et je crois que j'ai bien les droits de lecture d'attributs mais je n'arrive pas à lister les attributs cachés.