(PowerBuilder) 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

integer li_rc
oleobject loo_Pfx
integer li_Success
integer li_Exportable
integer li_UserProtected
integer li_MachineKeyset
integer li_AllowOverwriteKey
integer li_AllowExport
string ls_LeafStore
string ls_IntermediateStore
string ls_RootStore
oleobject loo_Json

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

loo_Pfx = create oleobject
// Use "Chilkat_9_5_0.Pfx" for versions of Chilkat < 10.0.0
li_rc = loo_Pfx.ConnectToNewObject("Chilkat.Pfx")
if li_rc < 0 then
    destroy loo_Pfx
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Pfx.LoadPfxFile("qa_data/pfx/test_secret.pfx","secret")
if li_Success = 0 then
    Write-Debug loo_Pfx.LastErrorText
    destroy loo_Pfx
    return
end if

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

// Mark imported privae keys as exportable.
li_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. 
li_UserProtected = 0

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

// If allowOverwriteKey is 1, allow overwrite of the existing key. 
li_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.)
li_AllowExport = 1

// Indicate where to import types of certs.
ls_LeafStore = "My"
ls_IntermediateStore = "CertificationAuthority"
ls_RootStore = "AuthRoot"

li_Success = loo_Pfx.ImportToWindows(li_Exportable,li_UserProtected,li_MachineKeyset,li_AllowOverwriteKey,li_AllowExport,ls_LeafStore,ls_IntermediateStore,ls_RootStore,"")
if li_Success = 0 then
    Write-Debug loo_Pfx.LastErrorText
    destroy loo_Pfx
    return
end if

// Show information about the certificates imported
loo_Json = loo_Pfx.LastJsonData()
loo_Json.EmitCompact = 0
Write-Debug loo_Json.Emit()
destroy loo_Json

// 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
//     }
//   ]
// }

Write-Debug "Success."


destroy loo_Pfx