(Xojo Plugin) 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.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim cert As New Chilkat.Cert

Dim success As Boolean
success = cert.LoadFromFile("qa_data/certs/sample.cer")
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

Dim xml As New Chilkat.Xml
success = xml.LoadXml(cert.SubjectAlternativeName)
System.DebugLog(xml.GetXml())

// 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.
Dim upn As String
upn = xml.ChilkatPath("/A/name,oid,1.3.6.1.4.1.311.20.2.3|*")
If (xml.LastMethodSuccess = False) Then
    System.DebugLog("No user principle name.")
Else
    System.DebugLog("User Principle Name = " + upn)
End If