VBSでバッチファイルを実行したときに

質問

VBSでbatファイルを起動したときに、
batファイルの実行が完了するまで、
「ただいま、処理中・・・」というような
ダイアログボックスを表示し、処理完了後に
そのダイアログボックスを消して、次処理へ
いくようなスクリプトの記述の仕方がありまし
たら教えてください。
よろしくお願いいたします。

回答No.3

ittochan · ベストアンサー

これは？

dim IE,WshShell
Set WshShell = CreateObject("WScript.Shell")

openie()

WshShell.Run "cmd /c c:\temp\test",0,True

IE.Quit

WScript.Echo "次処理へ"

sub openie()

Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = 1
IE.Navigate "about:blank"
IE.Visible = 1
IE.ToolBar = 0
IE.MenuBar = 0
IE.AddressBar = 0
IE.StatusBar = 0
IE.Width=300
IE.Height = 150
IE.Left = 0
IE.Top = 0
Do While IE.Busy
Wscript.Sleep 10
Loop
Set oDoc = IE.Document
oDoc.open
oDoc.writeln "「ただいま、処理中・・・」"

end sub

お礼

細かな説明ありがとうございます。
じっくり研究させていただきます。
どうもありがとうございました。

回答No.2

ittochan

＞処理完了後に
Windows2000以上なら
WMI経由でプロセスの監視が可能ですがご存知でした？

お礼

WMIという言葉は目にしたことがありますが、
それがいったい何物で、何ができて、どのよ
うに使うのかはさっぱり分かりません。
いろいろと調べてみようと思います。

どうもありがとうございました。

回答No.1

ittochan

こういうのはどう？

Set WshShell = CreateObject("WScript.Shell")

Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = 1
IE.Navigate "about:blank"
IE.Visible = 1
IE.ToolBar = 0
IE.MenuBar = 0
IE.AddressBar = 0
IE.StatusBar = 0
IE.Width=300
IE.Height = 150
IE.Left = 0
IE.Top = 0
Do While IE.Busy
Wscript.Sleep 10
Loop
Set oDoc = IE.Document
oDoc.open
oDoc.writeln "「ただいま、処理中・・・」<BR><BR>"
oDoc.writeln "InternetExplorerを閉じると強制終了します"

while 1
WScript.Sleep 100
wend
Sub IE_onQuit()
WScript.Echo "強制終了しました"
WScript.Quit
End Sub