枚举

使用 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