(Classic ASP) Install PFX Certificates and Private Keys to Windows

Demonstrates how to install the certificates and private keys contained in a PFX to the Windows certificate stores.

Note: This example requires Chilkat v9.5.0.83 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' Note: This example requires Chilkat v9.5.0.83 or greater.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pfx")
set pfx = Server.CreateObject("Chilkat.Pfx")

success = pfx.LoadPfxFile("qa_data/pfx/test_secret.pfx","secret")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>"
    Response.End
End If

' See the online reference documentation for more information about the ImportToWindows method.

' Mark imported privae keys as exportable.
exportable = 1

' If userProtected is 1, the user is to be notified through a dialog box or other method when certain attempts to use this key are made. 
userProtected = 0

' If machineKeyset is 1, the private keys are stored under the local computer and not under the current user. 
machineKeyset = 0

' If allowOverwriteKey is 1, allow overwrite of the existing key. 
allowOverwriteKey = 0

' If allowExport is 1, then the imported key can later be exported back to a PFX.
' (It also allows for applications to directly access the private key material.)
allowExport = 1

' Indicate where to import types of certs.
leafStore = "My"
intermediateStore = "CertificationAuthority"
rootStore = "AuthRoot"

success = pfx.ImportToWindows(exportable,userProtected,machineKeyset,allowOverwriteKey,allowExport,leafStore,intermediateStore,rootStore,"")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>"
    Response.End
End If

' Show information about the certificates imported
' json is a Chilkat.JsonObject
Set json = pfx.LastJsonData()
json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' Sample LastJsonData:

' {
'   "exportable": true,
'   "userProtected": false,
'   "machineKeyset": false,
'   "allowOverwriteKey": false,
'   "allowExport": true,
'   "key": [
'     {
'       "name": "{F09B755A-1E90-444D-9851-02B86CA14961}",
'       "storageProvider": "Microsoft Software Key Storage Provider"
'     }
'   ],
'   "cert": [
'     {
'       "DN": "...",
'       "type": "intermediate",
'       "storeName": "CertificationAuthority",
'       "imported": true
'     },
'     {
'       "DN": "...",
'       "type": "root",
'       "storeName": "AuthRoot",
'       "imported": true
'     },
'     {
'       "DN": "....",
'       "type": "leaf",
'       "storeName": "My",
'       "keyContainer": "{345D4EAD-B8DD-4150-9A1F-4BC6437E77A2}",
'       "machineKeyset": true,
'       "imported": true
'     }
'   ]
' }

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

%>
</body>
</html>