Aufzählen von Objekten

Um das untergeordnete Objekt eines Containers anzuzeigen, z. B. eine Organisationseinheit (OE), müssen Sie das Containerobjekt aufzählen. Um eine Analogie zu einem Dateisystem herzustellen, würde das untergeordnete Objekt Dateien im Verzeichnis entsprechen, während der Container, bei dem es sich um das übergeordnete Objekt handelt, dem Verzeichnis selbst entspricht. Sie können auch den Enumerate-Vorgang verwenden, wenn Sie das übergeordnete Objekt eines Objekts abrufen möchten.

Wenn Sie ein Objekt auflisten, binden Sie tatsächlich an ein Objekt im Verzeichnis, und für jedes Objekt wird eine IADs-Schnittstelle zurückgegeben.

Das folgende Codebeispiel zeigt, wie die untergeordneten Elemente eines Containers aufzählt werden.

Dim ou As IADs
' Bind to an object using its DN.
On Error GoTo Cleanup

Set ou = GetObject("LDAP://OU=Sales,DC=Fabrikam,DC=COM")

For each child in ou
    Debug.Print child.Name
Next

Cleanup:
    If (Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set ou = Nothing

Sie können die Typen von Objekten filtern, die von der -Enumeration zurückgegeben werden. Um beispielsweise nur Benutzer und Gruppen anzuzeigen, verwenden Sie das folgende Codebeispiel vor der -Enumeration.

Ou.Filter = Array("user", "group")

Wenn Sie über einen Objektverweis verfügen, können Sie das übergeordnete Objekt des Objekts mithilfe der übergeordneten IADs-Eigenschaft abrufen. Das folgende Codebeispiel zeigt, wie eine Bindung an das übergeordnete Objekt erfolgen kann.

parentPath = obj.Parent
Set parent = GetObject(parentPath)

Weitere Informationen finden Sie unter Aufzählen von ADSI-Objekten.

Suchen nach Objekten