Check if Certificate Expired

How to check to see if a digital certificate is expired.

LOCAL loCert
LOCAL lnIsExpired
LOCAL lnSuccess

loCert = CreateObject('Chilkat.Cert')

*  The LoadByCommonName method searches the registry-based
*  Windows Current User Certificate Store and Local Machine Certificate
*  Store for a certificate whose common name (CN) matches
*  the argument:

lnSuccess = loCert.LoadByCommonName("Chilkat Software, Inc.")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX("Failed to find certificate!")
ELSE

    *  Display the certificate's distinguished name:
    ? loCert.SubjectDN

    lnIsExpired = loCert.Expired
    IF (lnIsExpired = 1) THEN
        ? "Certificate is expired."
    ELSE
        ? "Certificate is NOT expired."
    ENDIF

ENDIF

*  Alternatively, load a Certificate from a .cer file.
*  (Certs may also be loaded from other types of files, such as PEM, DER, PFX, etc.)
lnSuccess = loCert.LoadFromFile("myCert.cer")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX("Failed to load certificate!")
ELSE

    *  Display the certificate's distinguished name:
    ? loCert.SubjectDN

    lnIsExpired = loCert.Expired
    IF (lnIsExpired = 1) THEN
        ? "Certificate is expired."
    ELSE
        ? "Certificate is NOT expired."
    ENDIF

ENDIF

*  The Chilkat Certificate, Certificate Store, Private Key,
*  Public Key, and Key Container classes / objects are freeware.

*  They are used by and included with the Chilkat Email,
*  Crypt, S/MIME, and other commercial Chilkat components.