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) SFTP Public-Key AuthenticationDemonstrates how to authenticate with an SSH/SFTP server using publickey authentication.
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.SFtp") set sftp = CreateObject("Chilkat.SFtp") ' Set some timeouts, in milliseconds: sftp.ConnectTimeoutMs = 5000 sftp.IdleTimeoutMs = 15000 ' Connect to the SSH server. ' The standard SSH port = 22 ' The hostname may be a hostname or IP address. hostname = "sftp.example.com" port = 22 success = sftp.Connect(hostname,port) If (success <> 1) Then outFile.WriteLine(sftp.LastErrorText) WScript.Quit End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.SshKey") set key = CreateObject("Chilkat.SshKey") ' Load a PEM file into a string variable: ' (This does not load the PEM file into the key. The LoadText ' method is a convenience method for loading the full contents of ANY text ' file into a string variable.) privKey = key.LoadText("myPrivateKey.pem") If (key.LastMethodSuccess <> 1) Then outFile.WriteLine(key.LastErrorText) WScript.Quit End If ' Load a private key from a PEM string: ' (Private keys may be loaded from OpenSSH and Putty formats. ' Both encrypted and unencrypted private key file formats ' are supported. This example loads an unencrypted private ' key in OpenSSH format. success = key.FromOpenSshPrivateKey(privKey) If (success <> 1) Then outFile.WriteLine(key.LastErrorText) WScript.Quit End If ' Authenticate with the SSH server. Chilkat SFTP supports ' both password-based authenication as well as public-key ' authentication. success = sftp.AuthenticatePk("myLogin",key) If (success <> 1) Then outFile.WriteLine(sftp.LastErrorText) WScript.Quit End If outFile.WriteLine(sftp.LastErrorText) outFile.WriteLine("Public-Key Authentication Successful!") outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.