VBScript

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. 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

set cert = CreateObject("Chilkat.Cert")

success = cert.LoadFromFile("qa_data/certs/sample.cer")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
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)
outFile.WriteLine("DN: " & cert.IssuerDN)

' Common Subject parts:
' Issuer Common Name
outFile.WriteLine("CN: " & cert.IssuerCN)

' Issuer Country
outFile.WriteLine("C: " & cert.IssuerC)

' Issuer Email address
outFile.WriteLine("E: " & cert.IssuerE)

' Issuer Locality
outFile.WriteLine("L: " & cert.IssuerL)

' Issuer Organization
outFile.WriteLine("O: " & cert.IssuerO)

' Issuer Organizational Unit
outFile.WriteLine("OU: " & cert.IssuerOU)

' Issuer State
outFile.WriteLine("S: " & cert.IssuerS)

outFile.Close