Enumeration
Der Zugriff auf und die Bearbeitung von Daten mit ADSI bietet mehrere Beispiele für die-Enumeration. Sie können auch die untergeordneten Elemente von Container Objekten auflisten. Diese untergeordneten Elemente sind selbst Objekte und nicht nur Eigenschaften von Objekten.
Im folgenden Beispiel wird die IADsContainer -Schnittstelle verwendet, um die untergeordneten Elemente des Containers aufzuzählen.
Dim Container as IADsContainer
Dim Child as IADs
Set Container = GetObject("LDAP://MyServer/DC=MyDomain,DC=Fabrikam,DC=com")
For Each Child in Container
Debug.Print Child.Name
Next Child