LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsCertificateAuthorityAvailable property
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:\Lotus\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

See Also