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