LOTUSSCRIPT /COM/OLE のクラス

例:RenameNotesUser メソッド
次の例では、現在のユーザーに対し、認証 ID パスワード「My1Pswd」を入力するよう求めることなく、Lotus Notes ユーザー名を Mary Jones から Mary Newlywed に変更する要求が作成されます。

Sub Initialize
 Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("myServer/Northeast")
 Adminp.CertifierFile = _
 "C:\lotus\domino\cert.id"
 adminp.CertifierPassword = "My1Pswd"
 noteid$ = adminp.RenameNotesUser( _
 "CN=Mary Jones/O=Northeast","Newlywed")
 If noteid$<> "" Then
   Dim db As New NotesDatabase("myServer/Northeast", "admin4.nsf")
   Dim ws As New NotesUIWorkspace
   Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
 End If
End Sub

関連項目