docs.aws.amazon.com
unlimitedexcel.blogspot.com
Thank you soooo much! I actually found a lead right here on this website. Going through the forums I saw a lead.Given that this is a thread that has been idle for 10 years, I'm guessing "NO" on the answer.
I don't think it will be easy, but here is an article about using some sort of API that might give you a lead. It mentions manual tunnel setup but also suggests a more programmed approach.
Open a tunnel using manual setup and connect to remote device - AWS IoT Core
When you open a tunnel, you can choose the quick setup or the manual setup method for opening a tunnel into the remote device. This tutorial shows how to open a tunnel using the manual setup method and configure and start the local proxy to connect to the remote device.
You can continue looking for this answer by doing a web search on "ssh tunnel vba" or "ssh tunnel without putty"
I found this link which MIGHT help. Not entirely sure as it may involve a 3rd-party library.
SSH Tunneling (Port Forward via VBA) W/O PUTTY
Recently i faced a situation where I had to connect to MySQL server via VBA to extract the data for reporting. (Sounds simple .. Think agai...
This is an EXCEL solution:
Connecting to MySQL with SSH Tunnel? Would this be a good/secure workaround?-VBForums
Hello, I know that directly connecting to a MySQL database on internet is not a good idea, but if we use a SSH Tunnel (like Putty or Chilkat ActiveX) would this be a secure solution? So that we don't need to rewrite the whole legacy app codded in vb6 to use webservices? Do you have any...www.vbforums.com
Somewhere in there you might find a nugget you can keep.
Option Compare Database
Option Explicit
Const PLINK As String = "C:\Program Files (x86)\plink\plink.exe"
'Const PLINK As String = "C:\Users\username\Documents\kitty\klink.exe"
Const SSH_SWITCH As String = " -ssh "
Const PORT_SWITCH As String = " -P "
Const USE_PRIV_KEY As String = " -i "
Const PW_SWITCH As String = " -pw "
Const SWITCHES As String = " -N -L "
Const LOCALHOST As String = ":localhost:"
Const DQ As String = """"
'3307:localhost:3306"
Function OpenSSHTunnel( _
username As String, _
PW As String, _
SSHServer As String, _
SSHPort As Integer, _
PortForward As Long, _
PortLocal As Long, _
Optional PrivateKey As String _
) As Boolean
Dim strShell As String
strShell = DQ & PLINK & DQ
strShell = strShell & SSH_SWITCH & username & "@" & SSHServer
' If SSHPort > 0 Then strShell = strShell & ":" & SSHPort
If SSHPort > 0 Then strShell = strShell & PORT_SWITCH & SSHPort
strShell = strShell & IIf(Len(PrivateKey), USE_PRIV_KEY & DQ & PrivateKey & DQ, PW_SWITCH & DQ & PW & DQ)
' If Len(PrivateKey) Then
' strShell = strShell & USE_PRIV_KEY & PrivateKey ' Path to private key
' End If
strShell = strShell & SWITCHES
strShell = strShell & PortLocal & LOCALHOST & PortForward
Debug.Print strShell
TempVars("PLINK_PID") = Shell(strShell, vbHide)
OpenSSHTunnel = TempVars("PLINK_PID") > 0
End Function
Function CloseSSHTunnel() As Boolean
Dim blRet As Boolean
If Not IsNull(TempVars("PLINK_PID")) Then
blRet = KillProcByPID(TempVars("PLINK_PID"))
If blRet Then TempVars("PLINK_PID") = Null
End If
CloseSSHTunnel = blRet
End Function
Function KillProcByPID(lPid As Long) As Boolean
Dim colProcList As Object, objProc As Object, strComputer As String
strComputer = "."
With GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcList = .ExecQuery("Select * from Win32_Process Where ProcessID = " & lPid & "")
For Each objProc In colProcList
objProc.Terminate
Next
End With
Set objProc = Nothing
Set colProcList = Nothing
KillProcByPID = Err = 0
End FunctionWow you're here! Thanks so much! I'll try this out asap and let you know if I have any issues. Thanks soooo much!
