Dynamic Active Directory Tree

[RogFleming]

This work great for getting a Treeview of OU's that have sub OUs, but I cannot get any OU that do not

have Sub OU without getting duplicates. If there a check I can create to see if a OU has a Parent OU? or a member of another OU?

I thinking maybe that once a OU is used to delete it out of the Main Array.

Something like;

$foundou = _ArraySearch($aOUs,$chldOU[1][1])

_ArrayDelete($aOUs,$foundou)

_AD_Open()
$aOUs = _AD_GetAllOUs("OU=THR Workstations,DC=txhealth,DC=org")
_ArraySort($aOUs)
;_ArrayDisplay($aOUs)
$ParentOU=_GUICtrlTreeView_AddChild($tviewPI, $MainOU,"OU=THR Workstations,DC=txhealth,DC=org")
For $ou = 2 to UBound($aOUs,1) -1
        $chldOU = _AD_GetAllOUs($aOUs[$ou][1])
            If $chldOU[0][0] >= 2 Then
                $ChildOU = _GUICtrlTreeView_AddChild($tviewPI, $ParentOU,$chldOU[1][1])
                For $cOU = 2 to UBound($chldOU,1) -1
                    _GUICtrlTreeView_AddChild($tviewPI,$ChildOU,$chldOU[$cOU][1])
            Next

            EndIf

Next

Edited October 31, 2010 by RogFleming

[RogFleming]

[solved]

_AD_Open()
$aOUs = _AD_GetAllOUs("OU=THR Workstations,DC=txhealth,DC=org")
_ArraySort($aOUs)
;_ArrayDisplay($aOUs)
$ParentOU=_GUICtrlTreeView_AddChild($tviewPI, $MainOU,"OU=THR Workstations,DC=txhealth,DC=org")
For $ou = 2 to UBound($aOUs,1) -1
        $chldOU = _AD_GetAllOUs($aOUs[$ou][1])
            If $chldOU[0][0] >= 2 Then
                $ChildOU = _GUICtrlTreeView_AddChild($tviewPI, $ParentOU,$chldOU[1][1])
                For $cOU = 2 to UBound($chldOU,1) -1
                                        $ou = $ou +1
                    _GUICtrlTreeView_AddChild($tviewPI,$ChildOU,$chldOU[$cOU][1])
            Next

            EndIf

Next

[RogFleming]

Maybe not so solved, does not resolve 3 or 4 level OU Trees

[water]

Maybe not so solved, does not resolve 3 or 4 level OU Trees

Did you try the following script? It seems to do what you need.

[RogFleming]

Did you try the following script? It seems to do what you need.

It may not be sexy like those others but this works for 3 layers

_AD_Open()
$aOUs = _AD_GetAllOUs("DC=domain,DC=org"); Sub here your domain name
_ArraySort($aOUs,0,0,0,0)
For $ou = 1 to UBound($aOUs) - 1  ;Level1 For
    $MultiOU = _ArrayFindAll($aOUs,$aOUs[$ou][1],0,0,0,1,1)

    If _ArrayMaxIndex($MultiOU) >=2 Then
        $ParentOU = _GUICtrlTreeView_AddChild($tviewPI, $MainOU,$aOUs[$MultiOU[0]][1])
            For $children = 1 to _ArrayMaxIndex($MultiOU)
                $MultiOU2 = _ArrayFindAll($aOUs,$aOUs[$MultiOU[$children]][1],0,0,0,1,1)
                If _ArrayMaxIndex($MultiOU2) >=2 Then
                    $ParentChild = _GUICtrlTreeView_AddChild($tviewPI, $ParentOU,$aOUs[$MultiOU2[0]][1])
                    $ou=$ou+1
                        For $children2 =1  to _ArrayMaxIndex($MultiOU2)
                        $Child = _GUICtrlTreeView_AddChild($tviewPI, $ParentChild,$aOUs[$MultiOU2[$children2]][1])
                        $children=$children+1
                        $ou=$ou+1
                        Next
                Else
                    _GUICtrlTreeView_AddChild($tviewPI, $ParentOU,$aOUs[$MultiOU2[0]][1])
                    $ou=$ou+1
                    $Child2ArraySize=0
                EndIf
            Next

    Else
        _GUICtrlTreeView_AddChild($tviewPI, $MainOU,$aOUs[$ou][1])
    EndIf
Next