控制错误Shell执行

Question

我在Windows中有以下VBScript代码

Dim strOutPut
Set objExecObject = objShell.Exec(MyApp.exe)
Do While Not objExecObject.StdOut.AtEndOfStream
strOutPut = strOutPut & objExecObject.StdOut.ReadLine() &  vbCrLf 
Loop

在某些计算机中，MyApp.exe（我手动测试）会发出警告。 我的问题是，当发生这种情况时，objExecObject变为空，并且strOutPut没有填充MyApp.exe提供的thext。

如果我手动运行MyApp.exe，我会看到警告以及我想要的文本（只是一个警告）。

所以，我的问题是如何执行

Set objExecObject = objShell.Exec(MyApp.exe)

忽略警告，以便它仍然填充

处的变量

strOutPut = strOutPut & objExecObject.StdOut.ReadLine() &  vbCrLf 

谢谢。