例: CertificateExpiration property

次の例では、指定された認証 cert.id の有効期限である 07/23/2004 08:56:55 AM EDT が表示されます。

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