.NET Framework - Active Directory output?

Asked By Russell

31-Jan-10 03:27 PM

Hello,

I am trying to list all the OUs in the domain but when I run the script
below, the OUs under OUs are listed at the end of the list instead of after
the OU it is under.  For instance, I have OUs and sub OUs like so:
--OUab
--OUcd
--OUef
--OUgh
when I run the script the list is:
OUab
OUef
OUcd
OUgh
I would like it to be:
OUab
OUcd
OUef
OUgh

Any ideas how to do this?


$ADsPath = [ADSI]"LDAP://DC=Contoso,DC=Internal"
$Search = New-Object DirectoryServices.DirectorySearcher($ADsPath)
$Search.filter = "(objectClass=OrganizationalUnit)"
$Search.PageSize = 1000
$Search.SearchScope = "SubTree"; $results = $Search.Findall()

Foreach($result in $results)
{
$OU = $result.GetDirectoryEntry()
$OU.Name
}

01-Feb-10 05:51 AM

I am a bit short of a neater option at the moment. But this will work for
a start. You'll probably want to strip out the Write-Host and indenting
it is doing, those are just so you can see what it is up to.



Function WalkDSTree ( [ADSI]$OU = [ADSI]"", [Int]$i = 0 )
{
$i++

$OU.PsBase.Children |
?{ $_.objectClass -eq "organizationalUnit" } | %{
Write-Host "$(' ' * $i)$($_.Name)"
WalkDSTree $_ $i
}
}
WalkDSTree

01-Feb-10 12:47 PM

Thank you.

Russell