Perl

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.

Note: This example requires Chilkat v9.5.0.90 or greater due to fixes made in getting the UPN from the SAN.

Perl

use chilkat();

$success = 0;

$cert = chilkat::CkCert->new();

$success = $cert->LoadFromFile("qa_data/certs/sample.cer");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$xml = chilkat::CkXml->new();
$xml->LoadXml($cert->subjectAlternativeName());
print $xml->getXml() . "\r\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.
$upn = $xml->chilkatPath("/A/name,oid,1.3.6.1.4.1.311.20.2.3|*");
if ($xml->get_LastMethodSuccess() == 0) {
    print "No user principle name." . "\r\n";
}
else {
    print "User Principle Name = " . $upn . "\r\n";
}