pop up message
Set WshShell = WScript.CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("10秒間の表示をします", 10, "これはテスト")
msgbox BtnCode
set WshShell = nothing
Set WshShell = WScript.CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("10秒間の表示をします", 10, "これはテスト")
msgbox BtnCode
set WshShell = nothing