指定時間で消えるMsgBoxを使うには

WScript.Shell.PopUpメソッドを呼んでみる。
なんか上のid:akiramei殿の記事に微妙に類似してます。

REM WScript.Shell.PopUp.vbs
option Explicit
Dim intRet,objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
intRet = objWshShell.Popup("二秒で消えます。" , 2, "時間で消えるMsgbox風", vbOKCancel)
If intRet = vbOK Then
msgbox("二秒以内に[OK]が選ばれたっぽい" )
End If
If intRet = vbCancel Then
msgbox("二秒以内に[Cancel]が選ばれたっぽい" )
End If

ドコモの「いまどこサービス」、56,396人分のPHS番号が流出

ログも危険なので取り扱いは注意、というか盗難かぁ。災難だなあ。

 NTTドコモは、PHSで提供している「いまどこサービス」のシステム保守業務を委託している会社において、ユーザー情報が含まれているパソコンが盗難にあったことを明らかにした。同社では、現時点で流出したユーザー情報を不正使用された事実は確認されていないとしている。
http://k-tai.impress.co.jp/cda/article/news_toppage/20658.html