列举

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