pop するvbscript

'時間はすぐに過ぎ去ってしまう。
'ただしするべきことは多い。
'
' メッセージをポップアップ表示して、続けるかどうかユーザーに確認を促す
'ある程度時間がたってもユーザが入力しない場合は、表示を打ち切って
'デフォルトの次の動作を継続させたい場合など
'
message="continue?"
timeout=5
title="title"
buttons=65

set ws=wscript.createobject("wscript.shell")

rslt=ws.popup(message,timeout,title,buttons)

if rslt <> 2 then
msgbox "rslt <> 2"
else
msgbox "rslt = 2"
wscript.Quit
end if

msgbox "continuing"

'
'
'MS-DOSの窓で動作するバッチプログラムをvbscriptから動作させる場合
'
'
'

if msgbox("run ?",vbYesno)=vbYes then

set obj_wsh=createobject("wscript.shell")
aaa=obj_wsh.run("batch.bat")

end if

'
'
'
'