バッチファイルのPAUSE

バッチファイルのPAUSEを使って、
実行するかどうか待機状態のまま
指定時間何もキーを触らなければ
自動的に黒のコマンドプロンプトを
終了させる方法はないですか?

No.4 ベストアンサー 回答者： ivory-star 回答日時： 2006/06/30 13:51

Option Explicit

Dim objWshShell
Set ObjWshShell = WScript.CreateObject("WScript.Shell")

Dim result
result = objWshShell.Popup("10秒待ちます",10,"タイトル",vbOKCancel)

if result = vbOK Then
objWshShell.Run "A.EXE",1
End If
-----------------------------------
こんな感じでＯＫです。

スクリプト側でA.EXEの終了待ちを行いたい場合は、
objWshShell.Run "A.EXE",1,True
と、最後にTrueを追加してください。

この回答へのお礼

お世話になりました
うまくいきました
ありがとうございます

お礼日時：2006/06/30 19:04

No.3 回答者： ivory-star 回答日時： 2006/06/30 10:05

＃２です。

先ほどのスクリプトは、xxxx.vbsのように、拡張子を.vbsで保存してください。
xxxx.vbsをダブルクリックするか、コマンドラインから

wscript xxxx.vbs

のように実行します。
'WSH'で検索すると多少か情報が見つかるかと思いますが、プログラミング経験が無いと確かに少し辛いかもしれません（＾＾；

参考URL：http://www.microsoft.com/japan/technet/scriptcen …

この回答への補足

無知ですみません
OKの時、A.EXEを実行するとしたら、
下記のようになりますが、実行時のエラー
になります どのように記述すればいいのでしょう
何もしないと時間切れでうまく終了します

Option Explicit

Dim objWshShell
Set ObjWshShell = WScript.CreateObject("WScript.Shell")

Dim result
result = objWshShell.Popup("10秒待ちます",10,"タイトル",vbOKCancel)

if result = vbOK Then
A.EXE
End If

補足日時：2006/06/30 10:33

No.2 回答者： ivory-star 回答日時： 2006/06/29 11:53

VBScriptじゃダメですか？

ただしメッセージボックスが出てしまいますが、これだとWindows標準(Win98以降?)の機能だけで済みます。

--------------------------------
Option Explicit

Dim objWshShell
Set ObjWshShell = WScript.CreateObject("WScript.Shell")

Dim result
result = objWshShell.Popup("10秒待ちます",10,"タイトル",vbOKCancel)

if result = vbOK Then
WScript.Echo "ＯＫ"
Else
WScript.Echo "キャンセル"
End If
--------------------------------

この回答への補足

お世話になります
なんかむずかしそうですね!
BATファイルにそれをのせて実行すると一瞬で
終わりましたが、XPですが
何かインストールはしなくていいのでしょうか
すみません 素人で。。。。

補足日時：2006/06/30 06:21

No.1 回答者： OsieteG00 回答日時： 2006/06/29 09:45

choiseコマンド(または同等品)を用いてキー入力が無いときの初期値を決めておいてその場合は終了させてみては？

参考URL：http://www.vector.co.jp/soft/win95/util/se349380 …