Get SSL Server Certificate

Demonstrates how to retrieve the SSL server certificate for a site. This method establishes an SSL/TLS connection with a web server for the purpose of retrieving the SSL certificate, which may then be examined via the Chilkat certificate API.

Download Chilkat HTTP ActiveX

set http = CreateObject("Chilkat.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    WScript.Quit
End If

'  Notice:  The GetServerSslCert method is available in any
'  release dated after 7-April-2009

'  Get the SSL cert for paypal.com

' cert is a Chilkat.Cert
Set cert = http.GetServerSslCert("paypal.com",443)
If (cert Is Nothing ) Then
    MsgBox http.LastErrorText
Else
    MsgBox cert.SubjectDN

End If