例: RemoveServerFromCluster method

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

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