Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) Verify SSL Server CertificateDemonstrates how to connect to an SSL server and verify its SSL certificate.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set socket = CreateObject("Chilkat_9_5_0.Socket") success = socket.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then outFile.WriteLine(socket.LastErrorText) WScript.Quit End If ssl = 1 maxWaitMillisec = 20000 ' The SSL server hostname may be an IP address, a domain name, ' or "localhost". sslServerHost = "www.paypal.com" sslServerPort = 443 ' Connect to the SSL server: success = socket.Connect(sslServerHost,sslServerPort,ssl,maxWaitMillisec) If (success <> 1) Then outFile.WriteLine(socket.LastErrorText) WScript.Quit End If ' cert is a Chilkat_9_5_0.Cert Set cert = socket.GetSslServerCert() If (Not (cert Is Nothing )) Then outFile.WriteLine("Server Certificate:") 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) bExpired = cert.Expired bRevoked = cert.Revoked bSignatureVerified = cert.SignatureVerified bTrustedRoot = cert.TrustedRoot outFile.WriteLine("Expired: " & bExpired) outFile.WriteLine("Revoked: " & bRevoked) outFile.WriteLine("Signature Verified: " & bSignatureVerified) outFile.WriteLine("Trusted Root: " & bTrustedRoot) End If ' Close the connection with the server ' Wait a max of 20 seconds (20000 millsec) success = socket.Close(20000) outFile.Close |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.