(VBScript) Get Certificate Policy

See more Certificates Examples

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

' The certificatePolicies OID is 2.5.29.32
oid = "2.5.29.32"
strXml = cert.GetExtensionAsXml(oid)
If (cert.LastMethodSuccess = 1) Then
    outFile.WriteLine(strXml)

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

    ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
    set xml = CreateObject("Chilkat.Xml")
    success = xml.LoadXml(strXml)
    outFile.WriteLine("Policy OID = " & xml.GetChildContent("sequence|oid"))
End If


outFile.Close