(Excel) Get Issuer Certificate Information

See more Certificates Examples

A certificate contains information about its issuer. This example demonstrates how to get the issuer information from a certificate.

Download Excel Class Modules Chilkat Excel Class Modules

Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert


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

' Get issuer information:

' -----------------------------------------------------------------------
' (Not all subject fields may exist depending on the issuer certificate.)
' -----------------------------------------------------------------------

' Issuer DN (Distinguished Name, i.e. all the Issuer subject parts)
Debug.Print "DN: "; cert.IssuerDN

' Common Subject parts:
' Issuer Common Name
Debug.Print "CN: "; cert.IssuerCN

' Issuer Country
Debug.Print "C: "; cert.IssuerC

' Issuer Email address
Debug.Print "E: "; cert.IssuerE

' Issuer Locality
Debug.Print "L: "; cert.IssuerL

' Issuer Organization
Debug.Print "O: "; cert.IssuerO

' Issuer Organizational Unit
Debug.Print "OU: "; cert.IssuerOU

' Issuer State
Debug.Print "S: "; cert.IssuerS