![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) SSL Client CertificateDemonstrates how to connect to an SSL server using a client-side certificate, send a simple message, receive a simple response, and disconnect. Note: This example requires Chilkat v10.1.2 or greater.
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 requires 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") ' Create an instance of a certificate store object, load a PFX file, ' locate the certificate we need, and use it for signing. ' (a PFX file may contain more than one certificate.) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CertStore") set certStore = CreateObject("Chilkat.CertStore") ' The 1st argument is the filename, the 2nd arg is the ' PFX file's password: success = certStore.LoadPfxFile("chilkat_secret.pfx","secret") If (success <> 1) Then outFile.WriteLine(certStore.LastErrorText) WScript.Quit End If ' Find the certificate by the subject common name: ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonCN = CreateObject("Chilkat.JsonObject") success = jsonCN.UpdateString("CN","cert common name") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert") set cert = CreateObject("Chilkat.Cert") success = certStore.FindCert(jsonCN,cert) If (success = 0) Then outFile.WriteLine(certStore.LastErrorText) WScript.Quit End If success = socket.SetSslClientCert(cert) ssl = 1 maxWaitMillisec = 20000 ' The SSL server hostname may be an IP address, a domain name, ' or "localhost". You'll need to change this: sslServerHost = "123.123.88.88" sslServerPort = 8123 ' Connect to the SSL server: success = socket.Connect(sslServerHost,sslServerPort,ssl,maxWaitMillisec) If (success <> 1) Then outFile.WriteLine(socket.LastErrorText) WScript.Quit End If ' Set maximum timeouts for reading an writing (in millisec) socket.MaxReadIdleMs = 20000 socket.MaxSendIdleMs = 20000 ' Send a "Hello Server! -EOM-" message: success = socket.SendString("Hello Server! -EOM-") If (success <> 1) Then outFile.WriteLine(socket.LastErrorText) WScript.Quit End If ' The server (in this example) is going to send a "Hello Client! -EOM-" ' message. Read it: receivedMsg = socket.ReceiveUntilMatch("-EOM-") If (socket.LastMethodSuccess <> 1) Then outFile.WriteLine(socket.LastErrorText) WScript.Quit End If ' Close the connection with the server ' Wait a max of 20 seconds (20000 millsec) success = socket.Close(20000) outFile.WriteLine(receivedMsg) outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.