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