列舉型別

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