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