(Tcl) PC/SC List Smart Card Readers (and USB Tokens)

See more SCard Examples

Demonstrates how to list the smart card readers and USB tokens connected to the computer.

Note: This functionality was introduced in Chilkat v9.5.0.87.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set scard [new_CkSCard]

# First establish a context to the PC/SC Resource Manager
set success [CkSCard_EstablishContext $scard "user"]
if {$success == 0} then {
    puts [CkSCard_lastErrorText $scard]
    delete_CkSCard $scard
    exit
}

set stReaders [new_CkStringTable]

set success [CkSCard_ListReaders $scard $stReaders]
if {$success == 0} then {
    puts [CkSCard_lastErrorText $scard]
    delete_CkSCard $scard
    delete_CkStringTable $stReaders
    exit
}

set numReaders [CkStringTable_get_Count $stReaders]
set i 0
while {$i < $numReaders} {
    puts "$i: [CkStringTable_stringAt $stReaders $i]"
    set i [expr $i + 1]
}

# Sample output:
# 0: Alcor Micro USB Smart Card Reader 0
# 1: FS USB Token 0
# 2: FT Java Token 0
# 3: SCM Microsystems Inc. SCR33x USB Smart Card Reader 0
# 4: Yubico YubiKey OTP+FIDO+CCID 0

# Applications should always release the context when finished.
set success [CkSCard_ReleaseContext $scard]
if {$success == 0} then {
    puts [CkSCard_lastErrorText $scard]
}


delete_CkSCard $scard
delete_CkStringTable $stReaders