Insert a new attribute into the directory with a string value, using UTF-8 and Unicode translation as necessary.
Set pLDAP = CreateObject("LDAPClient.3")
Call pLDAP.Connect("ldapserver")
Set pEntries = pLDAP.Search("o=airius.com", "uid=printer1")
' Give printer1 a description, since it doesn't have one yet.
Call pEntries(0).Attributes.Add("description", "Color laser printer 1200 dpi. Reserved for documentation use between 5 and 6pm.")