批处理中:start "" %~dp0\Onekeylogin.vbs
一键登录linux的vbs
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe"
WScript.Sleep 1500
WshShell.SendKeys "ssh -o StrictHostKeyChecking=no core@IP"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1500
WshShell.SendKeys "密码"
WshShell.SendKeys "{ENTER}"
单独打开cmd,输入ssh 就是正常的。
单独双击vbs文件也是正常的。
检查一下环境变量,如果在脚本中使用ssh则默认环境变量中可能并不包含ssh路径,所以运行时就会提示找不到命令,你需要在执行ssh之前先设置ssh.exe到环境变量中。