| Platform SDK: Active Directory, ADSI, and Directory Services |
[Visual Basic]
Dim x As IADs
Set x = GetObject("LDAP://CN=Administrator,CN=Users,DC=Fabrikam,DC=com")
'----------------------------------------------
' Assume the otherHomePhoneNumber has the following values:
' 111-1111, 222-2222
'----------------------------------------------
x.PutEx ADS_PROPERTY_APPEND, "OtherhomePhone", Array("333-3333" )
x.SetInfo 'Now the values are 111-1111,222-222,333-3333
x.PutEx ADS_PROPERTY_DELETE, "OtherHomePhone", Array("111-1111", "222-2222")
x.SetInfo 'Now the values are 333-3333
x.PutEx ADS_PROPERTY_UPDATE, "OtherHomePhone", Array("888-8888", "999-9999")
x.SetInfo 'Now the values are 888-8888,999-9999
x.PutEx ADS_PROPERTY_CLEAR, "OtherHomePhone", vbNull
x.SetInfo 'Now the property has no value