strObjectDN = "cn=jnowak,cn=users,dc=rallencorp,dc=com"

const ADS_PROPERTY_CLEAR = 1
const ADS_PROPERTY_UPDATE = 2
const ADS_PROPERTY_APPEND = 3
const ADS_PROPERTY_DELETE = 4

set objUser = GetObject("LDAP://" & strObjectDN)

' Dodawanie dwch wartoci
objUser.PutEx ADS_PROPERTY_APPEND, "otherTelephoneNumber", _
              Array("555-1212", "555-1213")  
objUser.SetInfo
' otherTelephoneNumber = 555-1212, 555-1213

' Usunicie jednej wartoci
objUser.PutEx ADS_PROPERTY_DELETE, "otherTelephoneNumber", Array("555-1213")
objUser.SetInfo
' otherTelephoneNumber = 555-1212

' Zmiana wartoci
objUser.PutEx ADS_PROPERTY_UPDATE, "otherTelephoneNumber", Array("555-1214")
objUser.SetInfo
' otherTelephoneNumber = 555-1214

' Usunicie wszystkich wartoci
objUser.PutEx ADS_PROPERTY_CLEAR, "otherTelephoneNumber",  vbNullString
objUser.SetInfo
' otherTelephoneNumber = <puste>
