(VBScript) Get Certificate Subject Part by Name or OID

Demonstrates the GetSubjectPart method where a name or OID can be passed.

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

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = CreateObject("Chilkat.Cert")

success = cert.LoadByCommonName("myCert")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' This example demonstrates getting the SERIALNUMBER part of the subject,
' if one such part exists in the cert's subject.
' Not too many certicates include the serial number in the Subject.
' (Chilean issued certificates for SII is one such case where the SERIALNUMBER part exists within the Subject.)
serialNum = cert.GetSubjectPart("SERIALNUMBER")
If (cert.LastMethodSuccess = 0) Then
    outFile.WriteLine("No SERIALNUMBER part exists.")
    WScript.Quit
End If

outFile.WriteLine(serialNum)

' We could also get the part by the OID.
' See https://oidref.com/2.5.4.5 for a list of OID's in the 2.5.4.* range..
' The OID for SERIALNUMBER is "2.5.4.5"
serialNum = cert.GetSubjectPart("2.5.4.5")
If (cert.LastMethodSuccess = 0) Then
    outFile.WriteLine("No SERIALNUMBER part exists.")
    WScript.Quit
End If

outFile.WriteLine(serialNum)

outFile.Close