Example: Ocsp.ReadResponse 

[VB6 equivalent: OCSP_ReadResponse]

''Dim nChars As Integer
Dim strResponseFile As String
Dim strIssuerFile As String
Dim strBuf As String
strResponseFile = "ocsp_response_ok_dims.dat"
strIssuerFile = "UTNUSERFirst-Object.cer"
Console.WriteLine("ResponseFile=" & strResponseFile)
Console.WriteLine("IssuerFile=" & strIssuerFile)
strBuf = Ocsp.ReadResponse(strResponseFile, strIssuerFile)
Console.WriteLine("OCSP_ReadResponse returns " & strBuf.Length & " (expected +ve)")
Console.WriteLine("OCSPResponse=" & strBuf)

See Also:
Ocsp.ReadResponse Method

[Contents] [Index]