Verify a Signature

To verify a signature, follow these steps:

Load the XML document.
Create a new CreaSignLite object.
Call the Verify method.

' Create CreaSign Lite
Set csLite=CreateObject("CreaSignClientIE.CreaSignLite")   
'With CreaSignLite use: CreaSignLite.CreaSignLite

fileToVerify = "files/signedDataAndVis.xml"
if WScript.Arguments.Count>0 then fileToVerify=WScript.Arguments(0)

Set data=CreateObject("CreaSignClientIE.Data")
data.Load fileToVerify

Set vr = csLite.Verify(data, 0)

PrintVerifyResult vr

Sub PrintVerifyResult(vr)
    WScript.Echo "Signature valid : " & vr.ok
    if vr.OK Then 
    WScript.Echo "Signature is valid"
    else
    WScript.Echo "Signature is invalid"
    WScript.Echo "Error message: " & vr.ErrorMessage 
    End If

    if not (vr.Signer is Nothing) Then PrintSigner vr.Signer

End Sub

Sub PrintSigner(s)
  WScript.Echo "Signer:"
  WScript.Echo "  Name: " & s.DisplayName
  WScript.Echo "  Email: " & s.Email
  WScript.Echo "  Certificate issuer : " & s.IssuerName
  WScript.Echo "  Certificate is valid until " & s.ValidNotAfter
End Sub

Send comments on this topic.