Perl Requires Chilkat v9.5.0.90+

Get Certificate User Principal Name (UPN)

See more Certificates Examples

Demonstrates how to get a certificate's UPN from the SAN (Subject Alternative Name). Most certificates do not have a UPN. This example only applies to those certificates that have a User Principal Name. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $cert = Chilkat2::Cert->new;

my $success = $cert->LoadFromFile('qa_data/certs/sample.cer');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

my $xml = Chilkat2::Xml->new;
$xml->LoadXml($cert->SubjectAlternativeName);
print $xml->GetXml(), "\n";

# A certificate with a User Principal Name in the SAN might have this:

# <SubjectAltName>
#     <rfc822Name>joe@example.com</rfc822Name>
#     <name type="oid" oid="1.3.6.1.4.1.311.20.2.3">joe@example.com</name>
# </SubjectAltName>

# The OID 1.3.6.1.4.1.311.20.2.3 is for the User Principal Name.
my $upn = $xml->ChilkatPath('/A/name,oid,1.3.6.1.4.1.311.20.2.3|*');
if (!$xml->LastMethodSuccess) {
    print "No user principle name.\n";
} else {
    print 'User Principle Name = ', $upn, "\n";
}