Examples: CertificateExpiration property

This example displays the expiration date of 07/23/2004 08:56:55 AM EDT, which is the expiration date for the specified certificate, cert.id.

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Dim expire As NotesDateTime
  Set adminp = _
  session.CreateAdministrationProcess("bay/casco")
  adminp.CertifierFile = _
  "C:\lotus\domino\data\cert.id"
  Set expire = adminp.CertificateExpiration
  Messagebox expire.LocalTime, , _
  "Certificate expires on"
End Sub