枚举对象

若要查看容器的子对象(例如组织单位 (OU)),则应枚举容器对象。 为了模拟文件系统,子对象将对应于目录中的文件,而容器(即父对象)将对应于目录自身。 如果要获取某一对象的父对象,还可使用枚举操作。

枚举对象时,实际是绑定到目录中的某一对象,并对每个对象返回 IADs 接口。

以下代码示例演示了如何枚举容器的子项。

Dim ou As IADs
' Bind to an object using its DN.
On Error GoTo Cleanup

Set ou = GetObject("LDAP://OU=Sales,DC=Fabrikam,DC=COM")

For each child in ou
    Debug.Print child.Name
Next

Cleanup:
    If (Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set ou = Nothing

可筛选枚举返回的对象类型。 例如,若要仅显示用户和组,请在枚举前使用以下代码示例。

Ou.Filter = Array("user", "group")

如果有对象引用,则可使用 IADsParent 属性来获取该对象的父项。 以下代码示例演示了如何绑定到父对象。

parentPath = obj.Parent
Set parent = GetObject(parentPath)

有关详细信息,请参阅枚举 ADSI 对象

搜索对象