(Tcl) Find a Certificate in the "Other People" Windows Certificate Store

Demonstrates how to open the "Current User --> Other People" Windows certificate store, and locates a certificate matching an email address.

Note: This example requires Chilkat v10.1.2 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set certStore [new_CkCertStore]

# The "AddressBook" is the "Other People" certificate store as shown in certmgr.msc
set readOnly 1
set success [CkCertStore_OpenWindowsStore $certStore "CurrentUser" "AddressBook" $readOnly]
if {$success != 1} then {
    puts [CkCertStore_lastErrorText $certStore]
    delete_CkCertStore $certStore
    exit
}

# Find the certificate for the email address:
set jsonE [new_CkJsonObject]

CkJsonObject_UpdateString $jsonE "email" "joe@example.com"

set cert [new_CkCert]

set success [CkCertStore_FindCert $certStore $jsonE $cert]
if {$success == 0} then {
    puts [CkCertStore_lastErrorText $certStore]
    delete_CkCertStore $certStore
    delete_CkJsonObject $jsonE
    delete_CkCert $cert
    exit
}

puts "Found certificate: [CkCert_subjectDN $cert]"

delete_CkCertStore $certStore
delete_CkJsonObject $jsonE
delete_CkCert $cert