Automatisierung von Putty über VBExcel

Ich möchte den folgenden Prozess durch Excel VBA automatisieren: 1. Öffnen Sie Putty bestimmten Pfad 2. Login mit Anmeldeinformationen 3. Navigieren Sie zu einem Pfad auf dem Server. (cd/folder1/folder2) kann ich tun 1 & 2. Da ich neu bei VBA bin, bin ich mir nicht bewusst, wie hw den 3. erreichen.Automatisierung von Putty über VBExcel

Quelle

2017-07-10 Harshit Naik

Haben Sie 'Sendkeys' versucht? Vielleicht, wenn Sie den Code der ersten beiden Schritte veröffentlichen, wird die Hilfe einfacher. –

'ChDir "c: \ Ordner1 \ folder2"' – braX

Public Sub Test() Dim PuttyPID as Long Dim Benutzernamen als String Dim Passwort als String username = "xxxxxx" Passwort = "123456" P1 = "C: \ Programme (x86) \ PuTTy \ putty.exe - ssh" & Benutzername & "@ xx.yyy.zzz.aaa - pw" & Passwort PuttyPID = Shell (pc1, 1) –

Public Sub Test() 
    Dim PuttyPID as Long, username as String, password as String 
    username= " xxxxxx": Password= "123456" 
    P1 = "C:\Program Files (x86)\PuTTy\putty.exe - ssh" & username & _ 
    "@xx.yyy.zzz.aaa - pw" & Password 
    PuttyPID = Shell(P1, 1) 

    ''''''''''''''''''''''''''''''''''''''''''' 
    Application.Wait Now + TimeSerial(0, 0, 20) ' <-- give it time to get server prompt 
    AppActivate PuttyPID ' <-- activate it again to make sure 
    SendKeys "cd /folder1/folder2" & vbCr ' <-- vbCR to simulate CR key 
End Sub

Quelle

2017-07-10 13:02:09

Danke ASHIt funktionierte :) –

Addition zu obigen Code .. Ich habe unter Befehl eingefügt, um die Protokolle aufzulisten, die bestimmten Text enthält (zB: abc): SendKeys "grep -il abc * .log" Gibt es eine Möglichkeit, den Code zu ändern, um "abc" -Wert vom Benutzer zu nehmen, anstatt es im Code bereitzustellen? –

Die Tagesordnung besteht darin, alle Dateien im Ordner2 aufzulisten, in denen "abc" Text enthalten ist. –

Automatisierung von Putty über VBExcel

Antwort

Verwandte Themen