VBA中如何访问Active Directory记录集的嵌套值？

Active Directory里部分字段属于多值属性（比如postOfficeBox），这类字段的Value返回值不是单个字符串，而是一维Variant数组。你之前的写法错误在于把它当成了带Item方法的集合，正确的访问方式是通过数组下标获取元素：

基础写法（确定字段有值且为多值） #

' 直接取数组第一个元素
adUser.Add "postOfficeBox", rs.Fields("postOfficeBox").Value(0)

健壮性写法（兼容空值/单值情况） #

如果不确定字段是否有值，或者部分AD配置下该字段可能返回单值，建议先做类型判断避免报错：

Dim poBoxValue As Variant
poBoxValue = rs.Fields("postOfficeBox").Value

' 先检查字段是否为空
If Not IsNull(poBoxValue) Then
    ' 判断返回值是否为数组
    If IsArray(poBoxValue) Then
        adUser.Add "postOfficeBox", poBoxValue(0)
    Else
        ' 处理单值场景
        adUser.Add "postOfficeBox", poBoxValue
    End If
End If

补充说明 #

AD中常见的多值属性还包括proxyAddresses、memberOf等，它们的Value属性都遵循相同的数组返回规则，均可通过上述方式访问。

内容的提问来源于stack exchange，提问作者Al Grant