Examples: IsCertificateAuthorityAvailable property (NotesAdministrationProcess - LotusScript®)

This example submits a request to change the user named John Good to John Goode. If the CA process "\casco" is available, it uses that process. Otherwise, it uses the certifier 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