(VBScript) Create PKCS7 Signed File (.p7m)

Demonstrates how to sign a file to create a .p7m that contains both the file contents and the signature.

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)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CertStore")
set certStore = CreateObject("Chilkat.CertStore")

' Load a PFX file into a certificate store object.
success = certStore.LoadPfxFile("myPfx.pfx","pfxPassword")
If (success <> 1) Then
    outFile.WriteLine(certStore.LastErrorText)
    WScript.Quit
End If

' Get the certificate by subject common name.
' This should be the cert within the PFX that also
' has a private key (also stored within the PFX).
' cert is a Chilkat.Cert
Set cert = certStore.FindCertBySubjectCN("myCert")
If (certStore.LastMethodSuccess = 0) Then
    outFile.WriteLine(certStore.LastErrorText)
    WScript.Quit
End If

' Tell the crypt object to use the certificate for signing:
success = crypt.SetSigningCert(cert)

' Sign a file, producing a .p7m as output.
' The input file is unchanged, the test.p7m contains the 
' contents of the input file and the signature.
inFile = "test.txt"
outFile = "testp7m"
success = crypt.CreateP7M(inFile,outFile)
If (success <> 1) Then
    outFile.WriteLine(crypt.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Success!")

outFile.Close