Перечисление
Доступ к данным и управление ими с помощью ADSI содержит несколько примеров перечисления. Можно также перечислить дочерние объекты контейнеров. Эти дочерние объекты являются объектами, а не только свойствами объектов.
В следующем примере интерфейс IADsContainer используется для перечисления дочерних элементов контейнера.
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