Visual Basic 6.0

Subject Alternative Name

See more Certificates Examples

Demonstrates the usage of the SubjectAlternativeName property to get the certificate SAN (subject alternative name) as XML. Visual Basic 6.0

Dim success As Long
success = 0

' Note: Not all certificates contain a Subject Alternative Name.
' If it does not, the SubjectAlternativeName property will contain the empty string.

Dim cert As New ChilkatCert

success = cert.LoadFromFile("qa_data/certs/testIcpBrasil.cer")
If (success = 0) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

Dim subjectAltNameXml As String
subjectAltNameXml = cert.SubjectAlternativeName

Debug.Print subjectAltNameXml

' Here's a sample of the subjectAltNameXml:

' <?xml version="1.0" encoding="utf-8"?>
' <SubjectAltName>
'     <name type="oid" oid="2.16.76.1.3.4">...</name>
'     <name type="oid" oid="2.16.76.1.3.2">...</name>
'     <name type="oid" oid="2.16.76.1.3.3">...</name>
'     <name type="oid" oid="2.16.76.1.3.7">...</name>
'     <rfc822Name>...</rfc822Name>
' </SubjectAltName>

' The XML can be parsed like this:

Dim xml As New ChilkatXml

success = xml.LoadXml(subjectAltNameXml)

Dim oid As String
Dim name As String

Dim i As Long
i = 0
Dim count_i As Long
count_i = xml.NumChildrenHavingTag("name")
Do While i < count_i
    xml.I = i
    oid = xml.ChilkatPath("name[i]|(oid)")
    name = xml.GetChildContent("name[i]")
    i = i + 1
Loop
Dim rfc822Name As String
rfc822Name = xml.GetChildContent("rfc822Name")