запустить соединение plink-ssh с кнопки hta и передать значение в команду ssh - PullRequest
Новая
       101

запустить соединение plink-ssh с кнопки hta и передать значение в команду ssh

0 голосов
/ 07 ноября 2019

У меня небольшая проблема с моим скриптом HTA-vbs.

Это мой VBS-скрипт: 

strInput = UserInput( "USER:" )
pswInput = UserInput( "PSW:" )

Function UserInput( myPrompt )
       UserInput = InputBox( myPrompt )
End Function

Set objShell = CreateObject("Wscript.Shell")

        objShell.Run "plink.exe &  USER@192.0.0.1 -pw PASSWORD -no-antispoof "myscript.sh"

Так что это простой VBS-скрипт, который запускает скрипт на моей удаленной машине с Linux (я запускаю его с кнопки HTA). Мне нужно только, чтобы при вводе имени пользователя и пароля в исходном текстовом поле скрипт сохранял значение и заменял ПОЛЬЗОВАТЕЛЬ и ПАРОЛЬ при запуске соединения ssh.

Возможно ли это?

Большое вам спасибо. ДО СВИДАНИЯ! Angelo

1 Ответ

2 голосов
/ 07 ноября 2019

Примерно так должно работать: 

Dim sUserName
Dim sPassword
Dim objShell
Dim sCommand

sUserName = InputBox("USER:")
sPassword = InputBox("PSW:")

Set objShell = CreateObject("Wscript.Shell")

sCommand = "plink.exe " & sUserName & "@192.0.0.1 -pw " & sPassword & " -no-antispoof ""myscript.sh"""
objShell.Run sCommand

Вам не нужна функция UserInput, вы можете вызвать InputBox напрямую.

Если вы хотите сохранить пользователяПеременные имени и пароля, также есть способы сделать это, и вы можете предварительно заполнить их в вашем InputBox: 

' Set default values or perhaps read these from the Registry
sUserName = "admin"
sPassword = "password"

sUserName = InputBox("USER:", "Remote Connection", sUserName)
sPassword = InputBox("PSW:", "Remote Connection", sPassword)
...