(VBScript) Example: Crypt2.LastSignerCert method

Demonstrates how to call the LastSignerCert method.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

set crypt = CreateObject("Chilkat.Crypt2")

p7m_path = "qa_data/p7m/Firma.docx.p7m"
out_path = "qa_output/Firma.docx"

success = crypt.VerifyP7M(p7m_path,out_path)
If (success = 0) Then
    outFile.WriteLine(crypt.LastErrorText)
    WScript.Quit
End If

' Examine the certificate(s) used for signing.
numSigners = crypt.NumSignerCerts
i = 0

set cert = CreateObject("Chilkat.Cert")

Do While i < numSigners
    success = crypt.LastSignerCert(i,cert)
    outFile.WriteLine("Signer: " & cert.SubjectDN)
    i = i + 1
Loop

outFile.Close