批处理中: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文件也是正常的。