(VBScript) Examine SSL/TLS Server Certificate

See more Socket/SSL/TLS Examples

Demonstrates how an application can examine and check a server's SSL/TLS certificate.

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)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Socket")
set socket = CreateObject("Chilkat.Socket")

' Connect to a server.
useTls = 1
maxWaitMs = 2000
success = socket.Connect("www.intel.com",443,useTls,maxWaitMs)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

' If we get here, the TLS connection ws made..
' In any SSL/TLS handshake, the server sends its certificate in a TLS handshake message.
' Chilkat will keep it cached within the object that made the connection.
' Get the server's cert and examine a few things.
' cert is a Chilkat.Cert
Set cert = socket.GetSslServerCert()
If (socket.LastMethodSuccess = 0) Then
    ' This is unexpected..
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Distinguished Name: " & cert.SubjectDN)
outFile.WriteLine("Common Name: " & cert.SubjectCN)
outFile.WriteLine("Issuer Distinguished Name: " & cert.IssuerDN)
outFile.WriteLine("Issuer Common Name: " & cert.IssuerCN)

outFile.WriteLine("Expired: " & cert.Expired)
outFile.WriteLine("Revoked: " & cert.Revoked)
outFile.WriteLine("Signature Verified: " & cert.SignatureVerified)
outFile.WriteLine("Trusted Root: " & cert.TrustedRoot)

' Sample output:

' Distinguished Name: C=US, ST=California, O=Intel Corporation, CN=*.intel.com
' Common Name: *.intel.com
' Issuer Distinguished Name: C=GB, ST=Greater Manchester, L=Salford, O=Sectigo Limited, CN=Sectigo RSA Organization Validation Secure Server CA
' Issuer Common Name: Sectigo RSA Organization Validation Secure Server CA
' Expired: False
' Revoked: False
' Signature Verified: True
' Trusted Root: True


outFile.Close