VBS Run exe打开应用程序多次而不是一次答案

【问题标题】：VBS Run exe opens app many times instead of oneVBS Run exe打开应用程序多次而不是一次
【发布时间】：2021-12-22 03:14:54
【问题描述】：

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

代码：

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 窗口的 1 中，发送密钥按预期工作。如何防止打开别人？

【问题讨论】：

oShell.Run(oShell.ExpandEnvironmentStrings("%COMSPEC% /C (start G:\Git\git-bash.exe)")) 有帮助吗？也可以尝试在调用 AppActivate 之前添加 WScript.Sleep 3000 以让操作系统有时间启动 git-bash.exe 及其依赖项。希望驱动器 G: 是本地驱动器。如果没有，请增加睡眠时间，让防病毒软件有时间扫描进程。
@leeharvey1 感谢您完美详细的回复。 “睡觉”做到了。请将此作为答案发布，我会接受并评分。

标签： vbscript

【解决方案1】：

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

还可以尝试在调用oShell.AppActivate 之前添加WScript.Sleep 3000 以让操作系统有时间启动git-bash.exe 及其依赖项。

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

【讨论】：