Copies a published certificate from a template account (userTemplate) to the MyerKen Active Directory user account. This operation appends the new certificate without deleting any existing certificates.
On Error Resume Next Const ADS_PROPERTY_APPEND = 3 Set objUserTemplate = _ GetObject("LDAP://cn=userTemplate,OU=Management,dc=NA,dc=fabrikam,dc=com") arrUserCertificates = objUserTemplate.GetEx("userCertificate") Set objUser = _ GetObject("LDAP://cn=MyerKen,OU=Management,dc=NA,dc=fabrikam,dc=com") objUser.PutEx ADS_PROPERTY_APPEND, "userCertificate", arrUserCertificates objUser.SetInfo
On Error Resume Next Const ADS_PROPERTY_APPEND = 3 Set objUserTemplate = _ GetObject("LDAP://cn=userTemplate,OU=Management,dc=NA,dc=fabrikam,dc=com") arrUserCertificates = objUserTemplate.GetEx("userCertificate") Set objUser = _ GetObject("LDAP://cn=MyerKen,OU=Management,dc=NA,dc=fabrikam,dc=com") objUser.PutEx ADS_PROPERTY_APPEND, "userCertificate", arrUserCertificates objUser.SetInfo