Perl Requires Chilkat v9.5.0.87+

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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $scard = Chilkat2::SCard->new;

# First establish a context to the PC/SC Resource Manager
my $success = $scard->EstablishContext('user');
if (!$success) {
    print $scard->LastErrorText, "\n";
    exit;
}

my $stReaders = Chilkat2::StringTable->new;
$success = $scard->ListReaders($stReaders);
if (!$success) {
    print $scard->LastErrorText, "\n";
    exit;
}

my $numReaders = $stReaders->Count;
my $i = 0;
while ($i < $numReaders) {
    print $i, ': ', $stReaders->StringAt($i), "\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) {
    print $scard->LastErrorText, "\n";
}