List Windows Current User Certificates

Demonstrates how to open the registry-based Current User certificate store on a Windows OS and list the digital certificates.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;


#  This example demonstrates how to list the certificates
#  in the logged-on user's registry-based Current User Certificate Store.

#  This is our certificate store factory object:
$ccs = new chilkat::CkCreateCS();
$ccs->put_ReadOnly(1);

#  Open the current-user certificate store:

$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 = $cs->GetCertificate($i);
        print $cert->subjectDN() . "\r\n";
    }

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

#  The Chilkat Certificate, Certificate Store, Private Key,
#  Public Key, and Key Container classes / objects are freeware.

#  They are used by and included with the Chilkat Email,
#  Crypt, S/MIME, and other commercial Chilkat components.