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.