LDAP ACTIVE DIRECTORY EXPLORER

Commentaire de Chewba le 30/06/2005 11:26:23

Bonjour,

Super ta source, j'ai juste un prob, j'ai l'arborescence de monAD mais rien sous computer...Peux-tu m'aider ?

Merci dravance

Commentaire de Chewba le 30/06/2005 12:02:42

non, j'ai rien de tout ça, j'ai juste l'arborescence de l'AD et c'est tout... sans rien sous utilisateur, computers, etc...

Commentaire de thierrydelepine le 30/06/2005 14:14:02

cette version etait une presentation simple, je sais qu'elle ne gerait pas la recurisivite des sous OU, sous sous OU, ....

Donc c'est la qu'il faut que tu travaille pour voir les computers et users dans tes sous OU

remplace la Sub RecursiviteChild par celle ci ca devrait marcher :



Sub recursiviteChild(ChildName As String, NumeroNodeParent As Long)
On Error Resume Next
Dim NumeroNodeSousParent As Long
Dim NomParent As String
If TxtSuffixeDomaine.Text <> "" Then
    Set objGroup = GetObject("LDAP://" & ChildName & ",dc=" & TxtNameDomaine.Text & ",dc=" & TxtSuffixeDomaine.Text)
Else
    Set objGroup = GetObject("LDAP://" & ChildName & ",dc=" & TxtNameDomaine.Text)
End If

For Each Child In objGroup
    If Child.Name <> "" Then
        CompteurNode = CompteurNode + 1
        NumeroNodeSousParent = CompteurNode
        TreeView1.Nodes.Add "node" & NumeroNodeParent, tvwChild, "node" & CompteurNode, Mid(Child.Name, 4, Len(Child.Name) - 3)
        ReDim Preserve MyListAD(CompteurNode)
        MyListAD(CompteurNode).Name = Mid(Child.Name, 4, Len(Child.Name) - 3)
        MyListAD(CompteurNode).ParentContainer = Mid(Child.Parent, 8, InStr(1, Child.Parent, ",", vbTextCompare) - 8)
        NomParent = ""
        If Child.Class = "group" Then
            TreeView1.Nodes("node" & CompteurNode).Image = 3
            NomParent = Child.Name & "," & ChildName
        ElseIf Child.Class = "computer" Then
            NomParent = Child.Name
            TreeView1.Nodes("node" & CompteurNode).Image = 5
        ElseIf Child.Class = "user" Then
            NomParent = Child.Name
            TreeView1.Nodes("node" & CompteurNode).Image = 4
        ElseIf Child.Class = "organizationalUnit" Then
            'NomParent = Child.Name
            NomParent = Child.Name & "," & ChildName
            TreeView1.Nodes("node" & CompteurNode).Image = 2
        Else
            TreeView1.Nodes("node" & CompteurNode).Image = 6
        End If
        If NomParent <> "" Then recursiviteChild NomParent, NumeroNodeSousParent
    End If
Next

For Each objMember In objGroup.Members
    If objMember.Name <> "" Then
        CompteurNode = CompteurNode + 1
        NumeroNodeSousParent = CompteurNode
        TreeView1.Nodes.Add "node" & NumeroNodeParent, tvwChild, "node" & CompteurNode, Mid(objMember.Name, 4, Len(objMember.Name) - 3)
        ReDim Preserve MyListAD(CompteurNode)
        MyListAD(CompteurNode).Name = Mid(objMember.Name, 4, Len(objMember.Name) - 3)
        MyListAD(CompteurNode).ParentContainer = Mid(objMember.Parent, 8, InStr(1, objMember.Parent, ",", vbTextCompare) - 8)
        If objMember.Class = "group" Then
            TreeView1.Nodes("node" & CompteurNode).Image = 3
            NomParent = objMember.Name & "," & Mid(objMember.Parent, 8, InStr(1, objMember.Parent, ",", vbTextCompare) - 8)
        ElseIf objMember.Class = "computer" Then
            TreeView1.Nodes("node" & CompteurNode).Image = 5
            NomParent = objMember.Name
        Else
            TreeView1.Nodes("node" & CompteurNode).Image = 4
            NomParent = objMember.Name
        End If
        If NomParent <> "" Then recursiviteChild NomParent, NumeroNodeSousParent
    End If
Next
Set objGroup = Nothing

End Sub

Commentaire de thierrydelepine le 30/06/2005 15:28:27

execute le prog en mode pas a pas avec des espions pour verifier si il recupere bien  des valeurs et identifier d'ou viens ton probleme. voir aussi la fonction ListAD()

Commentaire de thierrydelepine le 30/06/2005 17:06:25

Non je n'ai pas de ZIP sur cette source, fait l'effort de comprendre ce code et de debeugger pour trouver pourquoi tu ne remonte rien, l'utilisation de WMI fonctionne tres bien pour manipuler active directory.
le mode pas a pas est la meilleur methode pour comprendre ou est le HIC pour toi.

est tu vraiement sur d'avoir donné le bon nom de domaine et suffixe de ton domaine ?