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


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

Доступ к данным и управление ими с помощью 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