(AutoIt) 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

; 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:

$oCsp = ObjCreate("Chilkat.Csp")
$oSt = ObjCreate("Chilkat.StringTable")

Local $bSuccess = $oCsp.GetProviders($oSt)
If ($bSuccess = False) Then
    ConsoleWrite($oCsp.LastErrorText & @CRLF)
    Exit
EndIf

; Iterate over the CSP names..
Local $i = 0
Local $iNumProviders = $oSt.Count
While $i < $iNumProviders
    ConsoleWrite($i & ": " & $oSt.StringAt($i) & @CRLF)
    $i = $i + 1
Wend

; --------------------------
; 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..
$oCertStore = ObjCreate("Chilkat.CertStore")
$bSuccess = $oCertStore.OpenCurrentUserStore(True)
If ($bSuccess = False) Then
    ConsoleWrite($oCertStore.LastErrorText & @CRLF)
    Exit
EndIf

; Create a Csp object and set the ProviderName equal to our desired CSP name.
; (setting the ProviderName selects the desired CSP.)
$oCsp.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.
Local $iNumContainers = $oCsp.NumKeyContainers

ConsoleWrite("numContainers = " & $iNumContainers & @CRLF)

$i = 0
While $i < $iNumContainers
    ; 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.
Local $sKeyContainerName = $oCsp.NthKeyContainerName($i)

Local $oCert = $oCertStore.FindCertByKeyContainer($sKeyContainerName)
    If ($oCertStore.LastMethodSuccess = True) Then
        ConsoleWrite("Certificate in reader: " & $oCert.SubjectCN & @CRLF)

    EndIf

    $i = $i + 1
Wend