Putty Automation // Open putty from different drive

[ganesh_6663]

Need to open putty from "C:/D:/E:/F:" any of the given drive , without chaging path inside macro every time.

Option Explicit

Public Sub test()

Dim PuttyPID As Double
#If VBA7 Then
Dim PuttyHwnd As LongPtr
#Else
Dim PuttyHwnd As Long
#End If
Dim serverName As String, username As String, password As String
 
serverName = "xxx.yyy"
username = "xxxx"
password = "xxxx"
 
PuttyPID = Shell("C:\Program Files\PuTTY\putty.exe -telnet  " & serverName, vbNormalFocus)   'CHANGE PATH TO .EXE
 
'Get window handle of the PuTTY Telnet command window

PuttyHwnd = GetWindowHandle(CLng(PuttyPID))
 
If PuttyHwnd <> 0 Then
     
SendChars PuttyHwnd, username & vbCr
Application.Wait DateAdd("s", 1, Now)
 
SendChars PuttyHwnd, password & vbCr
Application.Wait DateAdd("s", 1, Now)
 
SendChars PuttyHwnd, "DIR" & vbCr  'DIR command
 
End If

 

[rlv01]

What about something like this? (not tested)

Public Sub test()

    Dim PuttyPID As Double
    #If VBA7 Then
        Dim PuttyHwnd As LongPtr
    #Else
        Dim PuttyHwnd As Long
    #End If
    Dim serverName As String, username As String, password As String

    Dim DriveArr As Variant, PDrive As Variant
    Dim PPath As String, CurPath As String

    DriveArr = Array("C", "D", "E", "F")
    PPath = ":\Program Files\PuTTY\putty.exe"

    With CreateObject("Scripting.FileSystemObject")
        For Each PDrive In DriveArr
            CurPath = PDrive & PPath
            If .FileExists(CurPath) Then
                Exit For
            Else
                CurPath = ""
            End If
        Next PDrive
    End With

    If CurPath <> "" Then
        serverName = "xxx.yyy"
        username = "xxxx"
        password = "xxxx"

        PuttyPID = Shell(CurPath & " -telnet  " & serverName, vbNormalFocus)    'CHANGE PATH TO .EXE
       
        'Get window handle of the PuTTY Telnet command window
       
        PuttyHwnd = GetWindowHandle(CLng(PuttyPID))
       
        If PuttyHwnd <> 0 Then
       
        SendChars PuttyHwnd, username & vbCr
        Application.Wait DateAdd("s", 1, Now)
       
        SendChars PuttyHwnd, password & vbCr
        Application.Wait DateAdd("s", 1, Now)
       
        SendChars PuttyHwnd, "DIR" & vbCr  'DIR command

        End If
    End If