実行する必要のあるいくつかのコマンドラインユーティリティを含むvbsファイルがあります。ただし、場合によっては、これらのutilsは、続行するためにユーザーからの入力を求めるプロンプトを表示することがあります。私はそれらの条件をトラップし、「はい」のデフォルトの答えを提供して続行できるようにしたいと思います。
これが私がこれまでに持っているものです:
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"
これを行うと、何も起こりません。挿入したデバッグステートメントが表示されます...しかし、スクリプトがハングしているようです。
どんな助けでもいただければ幸いです。