VBScript

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. 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 crypt = CreateObject("Chilkat.Crypt2")

success = crypt.VerifyP7M("qa_data/cades/CAdES-T/Signature-C-T-1.p7m","qa_output/out.dat")
If (success = 0) Then
    outFile.WriteLine(crypt.LastErrorText)
    WScript.Quit
End If

numSigners = crypt.NumSignerCerts
outFile.WriteLine("Num Signers = " & numSigners)

i = 0
Do While i < numSigners
    If (crypt.HasSignatureSigningTime(i) = 1) Then
        outFile.WriteLine((i + 1) & ": " & crypt.GetSignatureSigningTimeStr(i))
    Else
        outFile.WriteLine((i + 1) & ": has no signing time.")
    End If

    i = i + 1
Loop

' Sample output:

' Num Signers = 1
' 1: Sun, 03 Dec 2013 06:57:41 GMT

outFile.Close