VBScript

Example: Http.GetServerCert method

Demonstrates how to call the GetServerCert method. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set http = CreateObject("Chilkat.Http")
set cert = CreateObject("Chilkat.Cert")

success = http.GetServerCert("chilkatsoft.com",443,cert)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(cert.SubjectDN)
outFile.WriteLine(cert.ValidToStr)

' Output:

' CN=*.chilkatsoft.com
' Wed, 10 Jun 2026 23:59:59 GMT

outFile.Close