VBS 运行 exe 多次打开应用程序而不是一次

Question

我正在自动化连接到远程 PC 的过程，其中包括 VPN+SSH+VNC 和 ssh 阶段自动化打开太多新的 windows 而不是预期的。

代码：

Set oShell = CreateObject("WScript.Shell")
oShell.Run("""G:\Git\git-bash.exe""")
oShell.AppActivate "MINGW64:/"

Dim command
command = "ssh -A username@adress options~"
oShell.SendKeys command

打开 3 到 5 个 git-bash 个实例，而不是 1 个。发送密钥按此 3-5 window 中的 1 中的预期工作。如何防止别人打开？

Answer 1

oShell.Run(oShell.ExpandEnvironmentStrings("%COMSPEC% /C (start G:\Git\git-bash.exe)")) 应该有帮助。

也可以尝试在调用 oShell.AppActivate 之前添加一个 WScript.Sleep 3000，以便 OS 有时间启动 git-bash.exe 及其依赖项。

希望驱动器 G: 是本地驱动器。如果不是，请增加 Sleep 时间，让任何防病毒软件有时间扫描进程。

VBS 运行 exe 多次打开应用程序而不是一次

VBS Run exe opens app many times instead of one

vbscript