(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.

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
}

# cert is a CkCert

set cert [CkCertStore_FindCertByRfc822Name $certStore "sales.edifact@somewhere.com"]
if {[CkCertStore_get_LastMethodSuccess $certStore] != 1} then {
    puts [CkCertStore_lastErrorText $certStore]
    delete_CkCertStore $certStore
    exit
}

puts "Found certificate: [CkCert_subjectDN $cert]"

delete_CkCert $cert


delete_CkCertStore $certStore