Kontakte aus Active Directory auslesen

Hi zusammen.

Ich suche eine Script, das mir alle Objekte aus der Active Directory, des Typs "Kontakt" ausgibt.

Ich habe schon eine Variante gefunden, die mir alle User- Objekte ausgibt.
Leider kenn ich die Bezeichnung für die Kontakt- Objekte nicht.

Da hat nicht mal Google geholfen

Für die User- Objekte verwende ich folgende Code- Zeilen:

    Set objDomain = GetObject("WinNT://Domain")  
    objDomain.Filter = Array("User")  
    
    For Each objUser In objDomain
        'Wscript.Echo "User name: " & objUser.Name  
        'Wscript.Echo "Description: " & objUser.Description  
        'Wscript.Echo "Logon script path: " & objUser.LoginScript  
        'Wscript.Echo  
    Next