例: SignDatabaseWithServerID method

次のコードは、管理者権限のあるクライアントから [ファイル] - [データベース] - [署名] を選択するのと同等のシステム管理要求を作成します。NE/Sales のサーバー ID で customers.nsf データベースに署名されます。

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("NE/Sales")
  noteid$ = adminp.SignDatabaseWithServerID("NE/Sales", _
  "customers.nsf")
  If noteid$<> "" Then
    Dim db As New NotesDatabase("NE/Sales", "admin4.nsf")
    Dim ws As New NotesUIWorkspace
    Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
  End If
End Sub