Enumeración
Acceso y manipulación de datos con ADSI proporciona varios ejemplos de enumeración. También puede enumerar los elementos secundarios de los objetos contenedor. Estos elementos secundarios son objetos en sí mismos, en lugar de simplemente propiedades en objetos.
En el ejemplo siguiente se usa la interfaz IADsContainer para enumerar los elementos secundarios del contenedor.
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