VBScript

Add a PFX Source to MailMan from BinData

Demonstrates the Chilkat MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store to the MailMan object's internal list of sources used for locating certificates and private keys. The first argument is a BinData containing the PFX bytes and the second is the PFX password. This example loads a PFX into a BinData, registers it, and fetches a message Chilkat can decrypt.

Background: This is the in-memory (BinData) counterpart to AddPfxSourceFile. It is the right choice when the PFX bytes come from somewhere other than a file — a database, a secrets manager, or an HTTPS download — letting you supply the certificate and private key without first writing sensitive key material to disk.

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 MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store
'  to the MailMan object's internal list of sources used for locating certificates and
'  private keys.  The 1st argument is a BinData containing the PFX bytes and the 2nd is the
'  PFX password.

set mailman = CreateObject("Chilkat.MailMan")

'  Configure the POP3 server connection.
mailman.MailHost = "pop.example.com"
mailman.MailPort = 995
mailman.PopSsl = 1
mailman.PopUsername = "user@example.com"
mailman.PopPassword = "myPassword"

'  Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
set bdPfx = CreateObject("Chilkat.BinData")
success = bdPfx.LoadFile("qa_data/certs/decryption.pfx")
If (success = 0) Then
    outFile.WriteLine(bdPfx.LastErrorText)
    WScript.Quit
End If

'  Add the PFX as a source of certificates and private keys.
success = mailman.AddPfxSourceBd(bdPfx,"pfx_password")
If (success = 0) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

'  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
set email = CreateObject("Chilkat.Email")
success = mailman.FetchOne(0,0,1,email)
If (success = 0) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Decrypted = " & email.Decrypted)

'  Note: The path "qa_data/certs/decryption.pfx" is a relative local filesystem path,
'  relative to the current working directory of the running application.

'  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
'  connects and authenticates -- using the property settings above -- whenever a server
'  operation requires it.  Calling the explicit connect/authenticate methods can still be
'  helpful to determine whether a failure occurs while connecting or while authenticating.

outFile.Close