VBAでコンソールアプリの結果を取得したい

Question

よろしくお願いいたします。
VBAでコンソールアプリを実行するには

rc = Shell("nslookup”)

と行いますが、この場合rcにはコンソールアプリが実行した結果が得られません。

nslookupをvbaで立ち上げ、以下のように結果を取得するにはどのようにすれば良いのでしょうか？
どのような方法でも良いのでご教授お願い致します。

既定のサーバー: sv**.**.**.jp
Address: ×.×.×.×
 
> www.xxxxx.com　　　　　　　　　←VBAで命令を送付
サーバー: sv**.**.**.jp　　　　　←この結果を取得したい
Address: ×.×.×.× 

また、以下の方法だとアプリがコンソールに結果を出力する場合にはResultにその結果が
出力されますが、コンソールアプリとやり取りを行う場合、コンソールに結果が出力されるまで
待つことになり、
（３）を行った時点でコンソールで止まってしまいます。

 　 Dim sh, ex, cmd As String, Result As String
    Set sh = CreateObject("WScript.Shell")         ''(1)
    cmd = "nslookup"                               ''(2)
    Set ex = sh.exec("%ComSpec% /c " & cmd)    　　''(3)
    Do While ex.Status = 0                       　''(4)
        DoEvents
    Loop

    Result = ex.StdOut.ReadAll

コンソールアプリ内の結果を取得するにはどのように行えばよいのでしょうか？
よろしくお願いいたします。

Comments

[otn]

対話的に処理したいのなら、終了を待たずに、ReadLineで読めば良いかと。
終了を待てば、終了まで待つのは自明です。

[x86]

ありがとうございます。
VBAがあまりくわしくないので、もう少し具体的に教えてもらえないでしょうか？

Answer 1

コメントに書いたように、応答を見ながら入力するコマンドを変えるのであれば、１行単位で読んでその内容を判断しながら進めます。

応答を見ずに一方的に入力するなら、

    Set sh = CreateObject("WScript.Shell")
    cmd = "nslookup"                      
    Set ex = sh.exec("%ComSpec% /c " & cmd)
    ex.StdIn.WriteLine "入力したいコマンド"
    ex.StdIn.Close
    Result = ex.StdOut.ReadAll

ですが、それならコマンドラインで指定しても良いかもしれません。

Comments

[x86]

すみません、つまり応答を見ながら入力するコマンドを変える方法も教えていただけないでしょうか？

[otn]

ReadLineで読んで、ifで何らかの判断をして、WriteLineでコマンドを書き込みます。
ただし、出力が無い状態でReadLineを実行すると待ちで止まってしまうので、
よく考える必要があります。

[x86]

お手数かけて本当にすみません。
ReadLineの使い方がわからなのですが、以下の①の部分に入れるということでしょうか？
また、止まらないようにするためにはどのように回避すれば良いでしょうか？

Set sh = CreateObject("WScript.Shell")
cmd = "nslookup"
Set ex = sh.exec("%ComSpec% /c " & cmd)
ex.StdIn.WriteLine "コマンド"

　　・・・・・・・・・・・①

ex.StdIn.Close
Result = ex.StdOut.ReadAll

[otn]

> ReadLineの使い方がわからなのですが、以下の①の部分に入れるということでしょうか？

例えばそうですね。

> また、止まらないようにするためにはどのように回避すれば良いでしょうか？

出力があるかないかを人間があらかじめ判断しておいて、出力が無い状態ではReadLineしないようにします。
例えば、コマンド起動直後には３行出力されて入力待ちになるのであれば、
ReaLineは3回だけ行って4回目はコマンドを入力するまで行わないようにします。

[x86]

ご回答ありがとうございます。感謝いたします。
上記の例で①にReadLineを入れると、
ex.StdIn.WriteLine "コマンド"　の部分で止まってしまいませんでしょうか？

[otn]

なぜ？
WriteLineが止まることは無いと思いますが。（エラーになることはある）

[x86]

よくVBAを解っていないのですみません。
いろいろとすみません。
あと、Shellでも外部ソフトを立ち上げることができますが、そちらでは応答を見ながら入力するという
ことは不可能なのでしょうか？
お手数かけてすみません。

[otn]

標準入出力を使うものは可能でしょう。
可能であっても困難かも知れませんが。

[x86]

いろいろありがとうございました。
ご回答をお付き合いいただきありがとうございました。
少し、自分で調べてみます。
またわからなければ、同様の質問をすぐに上げさせていただきます。
また、よろしくお願いいたします。