VBScript

Get the Signer Details of a Signed Email

Demonstrates the read-only Chilkat Email.SignedBy property. If the email was received digitally signed, this contains the fields of the signer certificate's Subject Distinguished Name, for example: US, 94105, California, San Francisco, 100 Market Street, Northwind Research LLC, Engineering, Avery Morgan. The values appear without the attribute-name prefixes (C=, ST=, L=, O=, CN=). It is intended for display or diagnostics; use LastSignerCert when the certificate object itself is needed.

Background: Every certificate identifies its owner with a Subject Distinguished Name (Subject DN) — a structured set of fields like Country (C), State (ST), Organization (O), and Common Name (CN). The CN is typically the person or entity the certificate was issued to. SignedBy gives you a human-readable rendering of that identity, which is handy for showing "who signed this?" without needing to parse the certificate yourself.

Chilkat VBScript Downloads

Download Chilkat for VBScript

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

'  Demonstrates the read-only Email.SignedBy property.  If the email was received
'  digitally signed, this contains the fields of the signer certificate's SubjectDN
'  (without the C=, ST=, L=, O=, CN= attribute names).

set email = CreateObject("Chilkat.Email")

success = email.LoadEml("qa_data/eml/signed.eml")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

If (email.ReceivedSigned = 1) Then
    outFile.WriteLine("Signed by: " & email.SignedBy)
Else
    outFile.WriteLine("This email was not signed.")
End If

'  Note: Paths such as "qa_data/..." are relative local filesystem paths,
'  relative to the current working directory of the running application.

outFile.Close