Discussion :

[ValNyz]

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.

[charouel]

Tu peux voire ici

[ValNyz]

Merci pour vos réponses,

En fait mon code précédent ne listait que les propriétés possédant une valeur, si la propriété n'avait pas de valeurs, elle n'apparaissait pas

J'ai finalement réussi à lister mes propriétés à l'aide de la bibliothèque ActiveDS.dll avec le code suivant :

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
20
21
22
23
 
        Dim vals
        Dim str As String = ""
        Dim oM As New Dossier
        Dim dso As IADsOpenDSObject
        Dim obj1 As IADs
        Dim szUsername As String = "..."
        Dim szPassword As String = "..."
 
            dso = GetObject("LDAP:")
            obj1 = dso.OpenDSObject(...)
 
            vals = GetObject(obj1.Schema)
 
            For Each op In vals.Optionalproperties
                str = str & op.ToString & vbCrLf
            Next
 
            For Each op In vals.Mandatoryproperties
                str = str & op.ToString & vbCrLf
            Next
 
            MsgBox(str)