如何通过vbs执行命令

Question

我有一些需要运行的命令行实用程序的vbs文件。 但在某些情况下，这些使用情况可能会提示用户继续输入。我希望能够捕捉这些条件，提供“是”的答案，然后继续。

这是我到目前为止有：

Dim oExec 
set oExec = objShell.Exec("mycmd pw ....") 

do while not oExec.StdOut.AtEndofStream 
    wscript.echo "status of script: " & oExec.Status 
    input = input & oExec.StdOut.ReadLine() 
    if instr(input, "create key? (y/n)") <> 0 Then exit do 
loop 
oExec.Stdin.Write "y" 

当我做到这一点，没有任何反应。我看到我插入的调试语句...但脚本似乎挂起。

任何帮助，将不胜感激。

Answer 1

使用管道：echo y | your_command。这会将'y'放入您的流程标准版中。

如果下一个命令不使用stdin作为输入（它的实现使用键盘相关的API），那么没有简单的方法来解决这个问题。

Answer 2

您是否尝试将输入放入文件并使用command redirecting？

cmdfile.cmd < resp.txt