(AutoIt) SFTP use Cert's Private Key for Authentication (Windows)

Demonstrates how to use the private key of a pre-installed certificate (on Windows) for SFTP authentication. The certificate's private key must be marked as "exportable" when originally installed.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oCert = ObjCreate("Chilkat.Cert")

; Load the certificate from the Windows certificate store
Local $bSuccess = $oCert.LoadByCommonName("my_cert_common_name")
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

; Get the private key.  
Local $oPrivKey = $oCert.ExportPrivateKey()
If ($oCert.LastMethodSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

Local $sPrivKeyPem = $oPrivKey.GetPkcs8Pem()
If ($oPrivKey.LastMethodSuccess = False) Then
    ConsoleWrite($oPrivKey.LastErrorText & @CRLF)
    Exit
EndIf

$oSshKey = ObjCreate("Chilkat.SshKey")
$bSuccess = $oSshKey.FromOpenSshPrivateKey($sPrivKeyPem)
If ($bSuccess = False) Then
    ConsoleWrite($oSshKey.LastErrorText & @CRLF)
    Exit
EndIf

; Connect to an SSH/SFTP server
$oSftp = ObjCreate("Chilkat.SFtp")
$bSuccess = $oSftp.Connect("sftp.example.com",22)
If ($bSuccess = False) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

; Authenticate with the SSH server using a username + private key.
; (The private key serves as the password.  The username identifies
; the SSH user account on the server.)
$bSuccess = $oSftp.AuthenticatePk("mySshLogin",$oSshKey)
If ($bSuccess = False) Then
    ConsoleWrite($oSftp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("OK, the connection and authentication with the SSH server is completed." & @CRLF)

; This example is only to show the connection + authentication using a private key associated with a certificate in the Windows certificate store...