VBScript

Example: Crypt2.LastSignerCert method

Demonstrates how to call the LastSignerCert 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")

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