首先lotus designer帮助说明:
noteID$ = notesAdministrationProcess.RenameWebUser( username$ , newfullname$ [ , newlastname$ ] [ , newfirstname$ ] [ , newmiddleinitial$ ] [ , newshortname$ ] [ , newinternetaddress ] )
开始只传入username$ , newfullname$ 参数,但会报错误:HTTP Server: Agent message: 432315A required argument has not been provided
经测试发现需要传入所有参数才行
测试代码如下:
Sub Initialize
On Error Goto errhandle
Dim session As New NotesSession
Dim adminp As NotesAdministrationProcess
Set adminp = session.CreateAdministrationProcess("test/domain")‘有些情况需要使用ip地址
Call adminp.RenameWebUser("CN=san zhang/O=domain","CN=san1 zhang/O=domain","*","san1","*","*","*")
Msgbox "ok"
Exit Sub
errhandle:
Msgbox Err & Erl & Error
End Sub
如果报这样的错误:Admin Process: Received the following error performing a Initiate Web User Rename in Domino Directory request on san zhang/domain(Path: names.nsf). Cannot rename san zhang/domian because a certifier did not authorize the name change.
则你 想重命名的用户应该是 notes用户,而RenameWebUser是针对web(internet)用户的(没有notes id的用户), 这一点很重要