Telefonliste aus Active Directory auslesen - Problem mit Ebenenbeschränkung

- Ich versuche alle Telefonnummern aus der AD auszulesen und auszugeben -

*EDIT*
So habe es geschafft die AD auszulesen und das Ergebniss, also die Telefonliste auszugeben. Lediglich bei der Beschränkung der Ausgabeebenen hab ich noch Probleme.
Mein AD-Baum sieht ungefähr so aus :


*eu.xxx.com
*bultin
*Computers
*xyz
--- xyz1
--- xyz2
- (...)
*HO
---UK
------Servers
------Users
---------workstations
------(...)
*NR
---Disabled
---Users
------workstations
---Servers
---(...)


Ausschnit aus dem Script welches die AD hierarchisch auflistet:


function listStrukA(strType, objStart, strSymbol)
' objStart: Container, dessen Unterobjekte gelistet werden

intEbeneA = intEbeneA + 1

objStart.filter = Array(strType)

for each objSub in objStart
Anzeige = true
if LCase(objSub.Get("name")) = "Builtin" then Anzeige = false
if LCase(objSub.Get("name")) = "workstations" then Anzeige = false
if LCase(objSub.Get("name")) = "Program Data" then Anzeige = false
if LCase(objSub.Get("name")) = "Exchange Servers" then Anzeige = false
if LCase(objSub.Get("name")) = "Servers" then Anzeige = false

if Anzeige = true then
(...)
end if
next

intEbeneA = intEbeneA - 1

end function



Mein Problem :
Die Active Directory wird nicht so ausgegeben (beschränkt) wie ich es mir vorstelle. Lediglich die "workstations", also die unterste Ebene wird ausgebledet. Wie schaffe ich es das u.a. auch der Container "Bultin" ausgeblendet wird.

thx / mfg