AutoIt

ScMinidriver - List Certificates on a Smart Card or USB Token

See more ScMinidriver Examples

Gets a list of certificates contained on a smart card or USB token. AutoIt

Local $bSuccess = False

;  This example requires the Chilkat API to have been previously unlocked.
;  See Global Unlock Sample for sample code.

$oScmd = ObjCreate("Chilkat.ScMinidriver")

;  Reader names (smart card readers or USB tokens) can be discovered
;  via PCSC List Readers or PCSC Find Smart Cards
Local $sReaderName = "SCM Microsystems Inc. SCR33x USB Smart Card Reader 0"
$bSuccess = $oScmd.AcquireContext($sReaderName)
If ($bSuccess = False) Then
    ConsoleWrite($oScmd.LastErrorText & @CRLF)
    Exit
EndIf

$oStCerts = ObjCreate("Chilkat.StringTable")

;  We can choose one of the following items of information to get for each certificate:
;  "subjectDN" -- Return the full distinguished name of the cert.
;  "subjectDN_withTags" -- Same as above, but in a format that includes the subject part tags, such as the "CN=" in "CN=something"
;  "subjectCN" -- Return just the common name part of the certificate's subject.
;  "serial" -- Return the certificate serial number.
;  "serial:issuerCN" -- return the certificate serial number + the issuer's common name, delimited with a colon char.
Local $sCertPart = "subjectCN"

$bSuccess = $oScmd.ListCerts($sCertPart,$oStCerts)
If ($bSuccess = False) Then
    ConsoleWrite($oScmd.LastErrorText & @CRLF)
    Exit
EndIf

Local $iNumCerts = $oStCerts.Count
Local $i = 0
While $i < $iNumCerts
    ConsoleWrite($i & ": " & $oStCerts.StringAt($i) & @CRLF)
    $i = $i + 1
Wend

;  Delete the context when finished with the card.
$bSuccess = $oScmd.DeleteContext()
If ($bSuccess = False) Then
    ConsoleWrite($oScmd.LastErrorText & @CRLF)
EndIf