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