LOTUSSCRIPT /COM/OLE のクラス

例:ChangeHTTPPassword メソッド
次のコードは、ユーザー Juan Carlos の現在のインターネットパスワード「bueno」を新しいパスワード「malo」で置き換える要求を入力します。

Sub Initialize
 Dim session As NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("MyServer/northeast")
 noteID$ = adminp(ChangeHTTPPassword("CN=Juan Carlos/O=northeast", _
 "bueno", "malo")
 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

関連項目