Enumeration

Der Zugriff auf und die Bearbeitung von Daten mit ADSI bietet mehrere Beispiele für Enumerationen. Sie können auch die untergeordneten Elemente von Containerobjekten auflisten. Diese untergeordneten Elemente sind Objekte selbst und nicht nur Eigenschaften für Objekte.

Im folgenden Beispiel wird die IADsContainer-Schnittstelle verwendet, um die untergeordneten Elemente des Containers aufzulisten.

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