Sub Initialize
On Error Goto errhandle
Dim session As New NotesSession
Dim adminp As NotesAdministrationProcess
Set adminp = _
session.CreateAdministrationProcess("test/domino")' 有些情况需要使用ip地址
Adminp.CertifierFile = "d:\IBM\Lotus\Domino\Cert.id"
adminp.CertifierPassword = "Password"
Call adminp.RenameNotesUser("CN=test/O=domain","","test1","*","*")
Msgbox "ok"
Exit Sub
errhandle:
Msgbox Err & Erl & Error
End Sub
1、执行者需要有fulladministrator权限
2、如果报The name of the authority issuing the Change Request is not allowed to make that request. 错误,可以尝试在管理端使用cert id 重新验证一下用户名
3、Rename in Reader / Author Fields
Triggered by: Completion of the "Rename in Person documents" request on the administration server for the Domino Directory.
Carried out on: Each server in the domain.
Carried out: According to the "Delayed Request" setting for the Administration Process in the Server document.
Result: Each server in the domain updates the person's name in Reader / Author fields of databases for which it is an administration server and that have the advanced ACL option "Modify all Reader / Author fields" selected.
(需要将数据库-acl-advanced中Action指定为Modify all Reader / Author fields)
帮助查看 lotus domino Administrator help 的 Rename person
更新 Person、 Group 、(ACL、author、reander、names 修改需要配置Action为Modify all names fields