Поделиться через

Перечисление

  • Статья

доступ к данным и управление ими с помощью ADI предоставляет несколько примеров перечисления. Можно также перечислить дочерние объекты контейнеров. Эти дочерние объекты являются объектами, а не только свойствами объектов.

В следующем примере для перечисления дочерних элементов контейнера используется интерфейс 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