(VBScript) Load Certificate (.cer) and Private Key (.pvk) generated from makecert

See more Certificates Examples

Demonstrates how to load a certificate (.cer) and private key (.pvk) from the files produced by makecert, such as in the following command:

makecert -sv mycertificate.pvk -n "CN=My Simple Certificate" mycertificate.cer -sky Exchange

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)

' First load the .cer file.
' The certificate file (.cer) contains only the certificate (does not include the private key)
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadFromFile("qa_data/certs_and_keys/makecert/mycertificate.cer")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' Next, load the .pvk file.
' Note: The password "secret" is what you entered when makecert displayed the dialog asking for a password..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey")
set privKey = CreateObject("Chilkat.PrivateKey")
success = privKey.LoadPvkFile("qa_data/certs_and_keys/makecert/mycertificate.pvk","secret")
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

' Finally, associate the private key with the certificate.
success = cert.SetPrivateKey(privKey)
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' At this point, the certificate can be used for signing.  For example..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pdf")
set pdf = CreateObject("Chilkat.Pdf")

' ....
' ....

success = pdf.SetSigningCert(cert)

' ...
' ....

' Some Chilkat classes also provide a method where the cert and private key can be passed separately.
' For example, if SetSigningCert2 is called, then we don't need to explicitly associate the private key with the cert.
success = pdf.SetSigningCert2(cert,privKey)

' ...
' ....

outFile.Close