VBScript Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

VBScript Examples

Bounced Mail
Character Encoding
Digital Certificates
Digital Signatures
Email
FTP
HTML-to-XML
HTTP
IMAP
Encryption
MHT / HTML Email
PFX
RSA Encryption
S/MIME
Socket
Spider
String
Tar
Upload
XML
XMP
Zip Compression
Self-Extractor

More Examples...
Email Object
POP3
SMTP
Byte Array
RSS
Atom

Unreleased...
Service
PPMD
Deflate
Bzip2
LZW
Bz2
DH Key Exchange
DSA
Icon

 

 

 

 

 

 

 

Check if Certificate Expired

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set cert = 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:

success = cert.LoadByCommonName("Chilkat Software, Inc.")
If (success = 0) Then
    MsgBox "Failed to find certificate!"
Else

    '  Display the certificate's distinguished name:
    outFile.WriteLine(cert.SubjectDN)

    isExpired = cert.Expired
    If (isExpired = 1) Then
        outFile.WriteLine("Certificate is expired.")
    Else
        outFile.WriteLine("Certificate is NOT expired.")
    End If

End If

'  Alternatively, load a Certificate from a .cer file.
'  (Certs may also be loaded from other types of files, such as PEM, DER, PFX, etc.)
success = cert.LoadFromFile("myCert.cer")
If (success = 0) Then
    MsgBox "Failed to load certificate!"
Else

    '  Display the certificate's distinguished name:
    outFile.WriteLine(cert.SubjectDN)

    isExpired = cert.Expired
    If (isExpired = 1) Then
        outFile.WriteLine("Certificate is expired.")
    Else
        outFile.WriteLine("Certificate is NOT expired.")
    End If

End If

'  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.

outFile.Close

Need a specific example? Send a request to support@chilkatsoft.com

© 2003-2007 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser