訓練
列舉型別
使用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