Enumeração

acessar e manipular dados com ADSI fornece vários exemplos de enumeração. Você também pode enumerar os filhos de objetos de contêiner. Essas crianças são objetos em si, em vez de apenas propriedades em objetos.

O exemplo a seguir usa a interface IADsContainer para enumerar os filhos do contêiner.

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