VBScript流程启动结果为空标签

Question

我正在尝试为不熟悉计算机的企业主创建程序。为了保持简单，我只创建了一个简单的脚本来启动程序并发送密码和tab / enter键为他登录。

经过大量的试验和错误，我设法让它启动，但它没有任何文本应该是，并且OK按钮不启动应用程序。

以下是我用来启动流程的代码：

Function AddQuotes(input)
    AddQuotes = Chr(34) & input & Chr(34)
End Function

Set oShell = WScript.CreateObject("WScript.Shell")

progDir = oShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
pPath = progDir & "\PELCO\PELCO DX4500_DX4600 Client\Network Client\DX4500_DX4600Client.exe"

msgbox AddQuotes(pPath), 1, "test"

oShell.Run AddQuotes(pPath), 1, false

该程序将启动，但看起来像这样：

这就是窗口的外观（如直接从快捷方式启动时）：