LOTUSSCRIPT /COM/OLE のクラス

例:RenameWebUser メソッド
次の例では、Web ユーザー名を Mary A Jones から Mary A Newlywed に変更する要求が作成されます。

Sub Initialize
 Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("myServer/Northeast")
 noteid$ = adminp.RenameNotesUser("CN=Mary A Jones/O=Northeast", _
 "CN="Mary A Newlywed/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

関連項目