(Tcl) Gather Smartcard Debug Information for Chilkat

See more ScMinidriver Examples

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.

# First, Chilkat recommends downloading the MGTEK Smartcard Minidriver Tool to get information 
# about your smartcard. 

# The tool can be downloaded from https://www.mgtek.com/smartcard

# --------------------------------------------------------------------------------------------------------
# 1. Select the smartcard as shown below and send Chilkat a screenshot of the basic smartcard information.
# --------------------------------------------------------------------------------------------------------
# 

# 
# --------------------------------------------------------------------------------------------------------
# 2. Select the cmapfile (if present) as shown below and send Chilkat a screenshot of the CSP container map
# --------------------------------------------------------------------------------------------------------
# 

# 

# ---------------------------------------------------------
# Chilkat provides functions to get information about the smartcard, and what it contains.
# Send Chilkat the output of the following source code:

set scmd [new_CkScMinidriver]

# Reader names (smart card readers or USB tokens) can be discovered
# via PCSC List Readers or PCSC Find Smart Cards
set readerName "Alcor Micro USB Smart Card Reader 0"
set success [CkScMinidriver_AcquireContext $scmd $readerName]
if {$success == 0} then {
    puts [CkScMinidriver_lastErrorText $scmd]
    delete_CkScMinidriver $scmd
    exit
}

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0

# ------------------------------------------------------
# 3. Send Chilkat the JSON returned by GetCardProperties
# ------------------------------------------------------
set success [CkScMinidriver_GetCardProperties $scmd $json]
if {$success == 0} then {
    puts [CkScMinidriver_lastErrorText $scmd]
    delete_CkScMinidriver $scmd
    delete_CkJsonObject $json
    exit
}

puts [CkJsonObject_emit $json]

# ------------------------------------------------------
# 4. Send Chilkat the JSON returned by GetCspContainerMap
# ------------------------------------------------------
CkJsonObject_Clear $json
set success [CkScMinidriver_GetCspContainerMap $scmd $json]
if {$success == 0} then {
    puts [CkScMinidriver_lastErrorText $scmd]
    delete_CkScMinidriver $scmd
    delete_CkJsonObject $json
    exit
}

puts [CkJsonObject_emit $json]

delete_CkScMinidriver $scmd
delete_CkJsonObject $json