将发布的证书分配给 Active Directory 用户帐户

On Error Resume Next
Const ADS_PROPERTY_UPDATE = 2

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_UPDATE, “userCertificate”, arrUserCertificates
objUser.SetInfo

0 0 投票数
文章评分
订阅评论
提醒
guest
0 评论
内联反馈
查看所有评论