例: IsCertificateAuthorityAvailable property (NotesAdministrationProcess - LotusScript®)

次の例では、John Good という名前のユーザーを John Goode に変更する要求が送信されます。CA プロセス「¥casco」が使用できる場合、そのプロセスが使用されます。それ以外の場合は、認証者 ID が使用されます。

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("bay/casco")
  If adminp.IsCertificateAuthorityAvailable = True Then
    adminp.CertificateAuthorityOrg = "¥casco"
    adminp.UseCertificateAuthority = True
    noteID$ = adminp.RenameNotesUser("CN=John Good/O=casco", _
    "Goode")
    Messagebox noteID$, , "Renaming request made using CA process"
  Else
    adminp.CertifierFile = "C:¥Domino¥Data¥cert.id"
    adminp.CertifierPassword = "My1Pswd"
    noteID$ = adminp.RenameNotesUser("CN=John Good/O=casco", _
    "Goode")
    Messagebox noteID$, , "Renaming request made using certifier id"
  End If
End Sub