(Visual Basic 6.0) 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 cert As New ChilkatCert

Dim success As Long
success = cert.LoadByCommonName("myCert")
If (success = 0) Then
    Debug.Print cert.LastErrorText
    Exit Sub
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.)
Dim serialNum As String
serialNum = cert.GetSubjectPart("SERIALNUMBER")
If (cert.LastMethodSuccess = 0) Then
    Debug.Print "No SERIALNUMBER part exists."
    Exit Sub
End If

Debug.Print 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
    Debug.Print "No SERIALNUMBER part exists."
    Exit Sub
End If

Debug.Print serialNum