(AutoIt) Subject Alternative Name

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oCert = ObjCreate("Chilkat.Cert")

Local $bSuccess = $oCert.LoadFromFile("qa_data/certs/testIcpBrasil.cer")
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

Local $subjectAltNameXml = $oCert.SubjectAlternativeName

ConsoleWrite($subjectAltNameXml & @CRLF)

; 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:

$oXml = ObjCreate("Chilkat.Xml")

$oXml.LoadXml($subjectAltNameXml)

Local $sOid
Local $sName

Local $i = 0
Local $iCount_i = $oXml.NumChildrenHavingTag("name")
While $i < $iCount_i
    $oXml.I = $i
    $sOid = $oXml.ChilkatPath("name[i]|(oid)")
    $sName = $oXml.GetChildContent("name[i]")
    $i = $i + 1
Wend
Local $sRfc822Name = $oXml.GetChildContent("rfc822Name")