Perl Requires Chilkat v11.0.0+

Install PFX Certificates and Private Keys to Windows

See more PFX/P12 Examples

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

use chilkat();

$success = 0;

$pfx = chilkat::CkPfx->new();

$success = $pfx->LoadPfxFile("qa_data/pfx/test_secret.pfx","secret");
if ($success == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

#  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) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

#  Show information about the certificates imported
$json = chilkat::CkJsonObject->new();
$pfx->GetLastJsonData($json);

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

#  Sample output:

#  {
#    "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
#      }
#    ]
#  }

print "Success." . "\r\n";