我想从本地计算机打开 Putty,自动登录服务器,并使用 Excel VBA 脚本在 Putty 的同一会话上运行 shell 脚本。 下面的代码可以很好地打开 putty。
Sub open_putty()
Dim UserName 'assign user name
Dim Passwrd 'assign password
Dim TaskID As Long
pc1 = "C:\Users\Desktop\putty.exe -ssh " & UserName & "@servernamee -pw " & Passwrd
TaskID = Shell(pc1, 1)
End Sub
但是,我无法在同一会话上运行 shell 脚本 test.sh。登录后该脚本位于默认位置。 如何使用 Excel VBA 在服务器上运行 shell 脚本。
我很确定您需要使用
-m
参数。
像这样:
pc1 = "C:\Users\Desktop\putty.exe -ssh " & UserName & "@servernamee -pw " & Passwrd & " -m c:\temp\test.sh"
TaskID = Shell(pc1, 1)
您也可以考虑使用
plink.exe
,这是命令行连接实用程序。