VBScript

Subject Alternative Name

See more Certificates Examples

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

set cert = CreateObject("Chilkat.Cert")

success = cert.LoadFromFile("qa_data/certs/testIcpBrasil.cer")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

subjectAltNameXml = cert.SubjectAlternativeName

outFile.WriteLine(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:

set xml = CreateObject("Chilkat.Xml")

success = xml.LoadXml(subjectAltNameXml)

i = 0
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
rfc822Name = xml.GetChildContent("rfc822Name")

outFile.Close