Export All Certificates to .cer Files

Demonstrates how to export all certificates from a registry-based certificate store to .cer files where each filename is the serial number.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();


$ccs = new chilkat::CkCreateCS();
$ccs->put_ReadOnly(1);

#  Open the current-user certificate store:

# cs is a CkCertStore
$cs = $ccs->OpenCurrentUserStore();

if (!($cs eq null )) {

    $numCerts = $cs->get_NumCertificates();

    #  Print the distinguished name of each certificate
    for ($i = 0; $i <= $numCerts - 1; $i++) {
        # cert is a CkCert
        $cert = $cs->GetCertificate($i);

        $filename = "certs/" . $cert->serialNumber() . ".cer";

        $cert->ExportCertDerFile($filename);

    }

}
else {
    print $ccs->lastErrorText() . "\n";
}