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
------------------------------------
お礼
参考になりました。ありがとうございます。