VBScriptで外部プログラム実行中に「処理中」のダイアログボックスを表示したい

IPPプリンタを自動的にインストールするスクリプトを作成しています。プリンタドライバのインストールに時間がかかるので、その間に「処理中です。しばらくお待ちください」というダイアログボックスを表示したいのですがどのように実装したら宜しいでしょうか。

具体的には11行目の「WshShell.Run install, 1, True」が実行されてから終了するまでダイアログを表示したいと思っています。

以下作成したスクリプトです
------------------------------------
Option Explicit

Dim WshShell
Dim install
Dim open_window

install = "rundll32 printui.dll,PrintUIEntry /b ""プリンタ"" /x /n ""プリンタ"" /if /f ""RCBED12K.INF"" /u /r ""https://192.168.1.1"""
open_window = "control printers"

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup "プリンタドライバをインストールします。この処理には10秒以上かかる場合があります。しばらくお待ち下さい",10,"インストール"
WshShell.Run install, 1, True

WshShell.Popup "プリンタドライバのインストールが完了しました。この後自動的に開くウィンドウの中に「プリンタ」のアイコンが表示されていればインストール完了です。",10,"インストール"
WshShell.Run open_window

WScript.Quit
------------------------------------

No.1 ベストアンサー 回答者： notnot 回答日時： 2010/01/27 23:21

過去に同様の質問が出てますね。

http://okwave.jp/qa/q2176278.html

VBScriptでマルチスレッド・マルチプロセスはできないので、この回答のように、
１．外部アプリを起動してそこに文章を出す
２．時間のかかる処理をする
３．外部アプリを終了させる
ということしか出来ないでしょう。

この回答へのお礼

やはり難しいのですね。
スッキリしました。有難うございました。

お礼日時：2010/01/28 08:28