VB.NET

Get Certificate Policy

See more Certificates Examples

Demonstrates how to get a certificate's policy OIDs (if any) VB.NET

Dim success As Boolean = False

Dim cert As New Chilkat.Cert

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


' The certificatePolicies OID is 2.5.29.32
Dim oid As String = "2.5.29.32"
Dim strXml As String = cert.GetExtensionAsXml(oid)
If (cert.LastMethodSuccess = True) Then
    Debug.WriteLine(strXml)

    ' Sample result:
    ' <sequence><sequence><oid>2.16.840.1.101.2.1.11.39</oid></sequence></sequence>

    Dim xml As New Chilkat.Xml
    xml.LoadXml(strXml)
    Debug.WriteLine("Policy OID = " & xml.GetChildContent("sequence|oid"))
End If