vbs Popup（ポップアップ）の表示

未分類

Set objShell = WScript.CreateObject("WScript.Shell")
iBtn = objShell.Popup( "ウィンドウ内のテキスト", 0, "ウィンドウタイトル", vbOKCancel+vbQuestion)
Set objShell = Nothing

Select Case iBtn
Case vbOK
　rem 処理を記述
　WScript.Quit (0)
Case vbCancel
　rem 処理を記述
　WScript.Quit (0)
End Select