VBScript

Get Certificate Valid To/From Dates

Demonstrates how to get the certificate "valid from" and "valid to" dates. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set cert = CreateObject("Chilkat.Cert")

success = cert.LoadFromFile("qa_data/certs/testCert.cer")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' Get the certificate valid-from date/time
set ckdt = CreateObject("Chilkat.CkDateTime")
success = ckdt.SetFromRfc822(cert.ValidFromStr)

' Get the local timestamp string.
outFile.WriteLine("Valid from: " & ckdt.GetAsTimestamp(1))
' Valid from: 2017-03-17T19:00:00-05:00

' Now get the date/time as another object where we can get the individual numeric date parts.
set dt = CreateObject("Chilkat.DtObj")
ckdt.ToDtObj 1,dt

outFile.WriteLine(dt.Day & "/" & dt.Month & "/" & dt.Year & "  " & dt.Hour & ":" & dt.Minute)

' Get the certificate valid-to date/time
success = ckdt.SetFromRfc822(cert.ValidToStr)

outFile.WriteLine("Valid to: " & ckdt.GetAsTimestamp(1))
' Valid to: 2020-03-18T18:59:59-05:00new DtObj dt;
ckdt.ToDtObj 1,dt

outFile.WriteLine(dt.Day & "/" & dt.Month & "/" & dt.Year & "  " & dt.Hour & ":" & dt.Minute)

outFile.Close