(Tcl) Find Certificate for Email Address in Current-User Certificate Store (Windows-Only)

This is a Windows-only example to find a certificate for a given email address in the current-user certificate store (located in the Windows Registry).

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This is a Windows-only example because it lists the certificates
# stored in the Windows Current User Certificate Store located in the
# Windows Registry.

set certStore [new_CkCertStore]

set readOnly 1
set success [CkCertStore_OpenCurrentUserStore $certStore $readOnly]
if {$success == 0} then {
    puts [CkCertStore_lastErrorText $certStore]
    delete_CkCertStore $certStore
    exit
}

set emailAddr "support@chilkatsoft.com"
# cert is a CkCert
set cert [CkCertStore_FindCertBySubjectE $certStore $emailAddr]
if {[CkCertStore_get_LastMethodSuccess $certStore] != 1} then {
    puts "No certificate found for $emailAddr"
    delete_CkCertStore $certStore
    exit
}

puts "Found: [CkCert_subjectDN $cert]"
delete_CkCert $cert

# It should be case-insensitive, however it was found not to be.
# The case-insensitive search is fixed starting in Chilkat v9.5.0.65.
set emailAddr "SUPPORT@chilkatsoft.com"
set cert [CkCertStore_FindCertBySubjectE $certStore $emailAddr]
if {[CkCertStore_get_LastMethodSuccess $certStore] != 1} then {
    puts "No certificate found for $emailAddr"
    delete_CkCertStore $certStore
    exit
}

puts "Found: [CkCert_subjectDN $cert]"
delete_CkCert $cert


delete_CkCertStore $certStore