Aufzählung

Zugreifen auf und Bearbeiten von Daten mit ADSI- enthält mehrere Beispiele für Enumerationen. Sie können auch die untergeordneten Elemente von Containerobjekten aufzählen. 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 auflisten zu können.

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