Enumeración

acceder y manipular 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 interfazdeIADsContainer 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