(PowerBuilder) Find Certificate on Smartcard Currenty in Reader

Finds the certificates on smartcards currently in readers.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Csp
oleobject loo_St
integer li_Success
integer i
integer li_NumProviders
oleobject loo_CertStore
integer li_NumContainers
string ls_KeyContainerName
oleobject loo_Cert

// This newer example is a much better way to get the certificate on a smartcard or USB token

// This example requires that we already know the name of the CSP (Cryptographic Service Provider) for the smartcard.
// It is often the "Microsoft Base Smart Card Crypto Provider".  You can see what CSP's are registered on your system with this code:

loo_Csp = create oleobject
// Use "Chilkat_9_5_0.Csp" for versions of Chilkat < 10.0.0
li_rc = loo_Csp.ConnectToNewObject("Chilkat.Csp")
if li_rc < 0 then
    destroy loo_Csp
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_St = create oleobject
// Use "Chilkat_9_5_0.StringTable" for versions of Chilkat < 10.0.0
li_rc = loo_St.ConnectToNewObject("Chilkat.StringTable")

li_Success = loo_Csp.GetProviders(loo_St)
if li_Success = 0 then
    Write-Debug loo_Csp.LastErrorText
    destroy loo_Csp
    destroy loo_St
    return
end if

// Iterate over the CSP names..
i = 0
li_NumProviders = loo_St.Count
do while i < li_NumProviders
    Write-Debug string(i) + ": " + loo_St.StringAt(i)
    i = i + 1
loop

// --------------------------
// This newer example is a much better way to get the certificate on a smartcard or USB token

// We'll assume our smartcard is accessed through the "Microsoft Base Smart Card Crypto Provider"
// Also, we'll assume that the certificate has been installed into the default current user Windows
// certificate store by following the instructions provided by the smartcard vendor.
// (The certificate does not contain the private key.  The certificate should be installed in the
// Windows current user certificate store.  It will also be on the smartcard, and the associated private
// key is only on the smartcard.)
// 

// First open the Current User Certificate Store.  We'll need it soon..
loo_CertStore = create oleobject
// Use "Chilkat_9_5_0.CertStore" for versions of Chilkat < 10.0.0
li_rc = loo_CertStore.ConnectToNewObject("Chilkat.CertStore")

li_Success = loo_CertStore.OpenCurrentUserStore(1)
if li_Success = 0 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_Csp
    destroy loo_St
    destroy loo_CertStore
    return
end if

// Create a Csp object and set the ProviderName equal to our desired CSP name.
// (setting the ProviderName selects the desired CSP.)
loo_Csp.ProviderName = "Microsoft Base Smart Card Crypto Provider"

// Iterate over the key containers managed by this CSP.
// These will be the key containers for the cards currently inserted into the reader(s).
// If only one smartcard reader exists, and a smartcard is inserted, there should be one
// key container.
li_NumContainers = loo_Csp.NumKeyContainers

Write-Debug "numContainers = " + string(li_NumContainers)

i = 0
do while i < li_NumContainers
    // For each key container, get the key container name and then find the certificate
    // in the Current User Certicate Store with the matching key container name.
    ls_KeyContainerName = loo_Csp.NthKeyContainerName(i)

    loo_Cert = loo_CertStore.FindCertByKeyContainer(ls_KeyContainerName)
    if loo_CertStore.LastMethodSuccess = 1 then
        Write-Debug "Certificate in reader: " + loo_Cert.SubjectCN
        destroy loo_Cert
    end if

    i = i + 1
loop


destroy loo_Csp
destroy loo_St
destroy loo_CertStore