(VBScript) Require SSL Server Certificate Domain Match

See more HTTP Examples

Demonstrates how to require that the SSL server certificate's domain matches the intended domain.

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.Http")
set http = CreateObject("Chilkat.Http")

' Call SetSslCertRequirement to require that the SSL server certificate's domain
' matches only the domain we are intending to communicate with.

' In this example we will test with the URL https://wrong.host.badssl.com/
' which intentionally has an SSL certificate that does not match "wrong.host.badssl.com"

http.SetSslCertRequirement "SAN","wrong.host.badssl.com"

' Also validate the server cert..
http.RequireSslCertVerify = 1

' Try sending the request.  It should fail within the SSL/TLS handshake
' because the server's certificate does not match the domain "wrong.host.badssl.com"
html = http.QuickGetStr("https://wrong.host.badssl.com/")
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
Else
    outFile.WriteLine("Unexpected success.")
End If


outFile.Close