Enumeração

Acessando e manipulando 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, e não 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