LOTUSSCRIPT/COM/OLE CLASSES

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

See Also