从 hta 按钮启动 plink-ssh 连接并将值传递给 ssh 命令

Question

我的 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 连接时保存值并替换 USER 和 PASSWORD。

可能吗？

太感谢了。 再见！ 安杰洛

Answer 1

像这样的东西应该工作：

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 function，直接调用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)