Perl

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.

Perl

use chilkat();

$success = 0;

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

$scard = chilkat::CkSCard->new();

# First establish a context to the PC/SC Resource Manager
$success = $scard->EstablishContext("user");
if ($success == 0) {
    print $scard->lastErrorText() . "\r\n";
    exit;
}

$stReaders = chilkat::CkStringTable->new();
$success = $scard->ListReaders($stReaders);
if ($success == 0) {
    print $scard->lastErrorText() . "\r\n";
    exit;
}

$numReaders = $stReaders->get_Count();
$i = 0;
while ($i < $numReaders) {
    print $i . ": " . $stReaders->stringAt($i) . "\r\n";
    $i = $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.
$success = $scard->ReleaseContext();
if ($success == 0) {
    print $scard->lastErrorText() . "\r\n";
}