Public Sub 使用方法() Dim SSH As New VbaSSHLibrary.VbaSSH With SSH .Open "サーバー1のIPアドレス", "ポート番号", "id", "pw" Debug.Print .Execute("cd /;ls -la") .Close End With End Sub Public Sub サンプル() Dim Ssh1 As VbaSSHLibrary.VbaSSH Dim Ssh2 As VbaSSHLibrary.VbaSSH Dim Ssh3 As VbaSSHLibrary.VbaSSH Ssh1.Open "192.168.0.100", 22, "user1", "123456" Ssh2.Open "192.168.0.101", 22, "user2", "password" Ssh3.Open "192.168.0.102", 2222, "user3", "qwerty" Debug.Print Ssh1.Execute("cd /;ls -la") Debug.Print Ssh2.Execute("tar cvf hoge.tar *.php") Debug.Print Ssh3.Execute("adb shell input touchscreen tap 123 456") Ssh1.Close Ssh2.Close Ssh3.Close End Sub