LOTUSSCRIPT /COM/OLE のクラス

例:RemoveServerFromCluster メソッド
次の例では、システム管理要求を作成して、現在のサーバーをクラスタから削除します。

Sub Initialize
 Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("bay/casco")
■ adminp.CertifierPassword = _
 noteid$ = adminp.RemoveServerFromCluster("bay/casco")
 If noteid$ <> "" Then
   Dim db As New NotesDatabase("bay/casco", "admin4")
   Dim ws As New NotesUIWorkspace
   Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
 End If
End Sub

関連項目