[..] Créer un TreeView d'une AD avec LDAP (adfunction.au3)
Posté : ven. 03 juil. 2009 09:05
Bonjour,
Je m'arrache les cheveux depuis deux jours j'essaie de créer un treeview d'une AD en m'y connectant en LDAP, pour cela j'utilise le script adfunction.au3 :
http://www.autoitscript.com/forum/index ... adfunction
j'arrive bien a m'y connecter, a créer sur deux niveaux l'arborescence de l'AD mais impossible pour la 3em...
Si quelqu'un pouvais m'aider.
Merci.
Mon code :
Je m'arrache les cheveux depuis deux jours j'essaie de créer un treeview d'une AD en m'y connectant en LDAP, pour cela j'utilise le script adfunction.au3 :
http://www.autoitscript.com/forum/index ... adfunction
j'arrive bien a m'y connecter, a créer sur deux niveaux l'arborescence de l'AD mais impossible pour la 3em...
Si quelqu'un pouvais m'aider.
Merci.
Mon code :
Code : Tout sélectionner
#include <adfunctions.au3>
#include <Array.au3>
#include <GUIConstants.au3>
local $Array_OU,$Array_OU2, $Array_OU3, $objects
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 454, -1, -1)
$TreeView1 = GUICtrlCreateTreeView(8, 8, 617, 441)
_Creation_TreeView()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func _Creation_TreeView()
Dim $ou = "OU=Users,OU=AD,DC=fr,DC=rcc"
$filtre = '(&(objectClass=organizationalUnit)(!(name=@DisabledUsers)))'
_ADGetObjectsInOU($Array_OU,$ou,$filtre,1,"name")
For $i = 1 to UBound($Array_OU,1) - 1 Step +1
$testtree = GUICtrlCreateTreeViewItem($Array_OU[$i], $TreeView1)
_ADGetObjectsInOU($Array_OU2,"OU="&$Array_OU[$i]&","&$ou,$filtre,1,"name")
For $j = 1 to UBound($Array_OU2,1) - 1 Step +1
$testtree2 = GUICtrlCreateTreeViewItem($Array_OU2[$j], $testtree)
_ADGetObjectsInOU($Array_OU3,"OU="&$Array_OU2[$j]&","&"OU="&$Array_OU[$i]&","&$ou,$filtre,1,"name")
For $k = 1 to UBound($Array_OU3,1) - 1 Step +1
$testtree3 = GUICtrlCreateTreeViewItem($Array_OU3[$k], $testtree2)
Next
Next
Next
EndFunc
_ArrayDisplay($Array_OU, "test")