Dim propList As IADsPropertyList
Dim propEntry As IADsPropertyEntry
Dim propVal As IADsPropertyValue
Dim attributValue As String
Set propList = GetObject(<adsPath>)
propList.GetInfo
Set propEntry = propList.GetPropertyItem( _
"<nomAttribut>", _
ADSTYPE_CASE_IGNORE_STRING)
Set propVal = propEntry.Values(<leNumeroAttribut>)
attributValue = propVal.CaseIgnoreString