Private Sub Virmach_Click()
Dim UserName As String '设置用户名
Dim Password As String '设置密码
Dim ip As String '设置ip地址
Dim TaskID As Long '设置进程id
UserName = "root"
Password = "password"
ip = "127.0.0.1"
pc1 = "E:\服务器/putty.exe -ssh " & UserName & "@" & ip & " -pw " & Password
TaskID = Shell(pc1, 1)
End Sub
转载于:https://www.cnblogs.com/jiangwenwen1/p/10145713.html