前提・実現したいこと
VBScriptで以下のようなコードを作成しました。
実現したいこととしては、Popupを表示した上で30秒待っても反応がないか
はいが選択されたときにシャットダウンしたい。
※なお、ダブルクリックして起動した場合はPopupされます。
発生している問題・エラーメッセージ
Popupが表示せずにシャットダウンされる。
該当のソースコード
VBScript
1Option Explicit 2 3Dim objWSH 4Dim intRet 5 6Const cnsTimeOut = 30 'ポップアップを表示する秒数 7 8Set objWSH = CreateObject("WScript.Shell") 9 10' 自動で閉じるポップアップの表示(既定は、"はい"としている) 11intRet = objWSH.Popup("30秒後にシャットダウンを行います", cnsTimeOut, "Daily Shutdown", vbQuestion + vbYesNoCancel + vbDefaultButton1) 12 13If intRet = vbYes Or intRet = -1 Then 14' objWSH.Popup "Auto or Timeout", vbInformation 15 objWSH.Run "cmd /c shutdown -s -t 0" 16End If 17 18Set objWSH = Nothing 19
試したこと
タスクマネージャで任意の時間で上記のスクリプトが起動するように
設定を行いました。
設定内容は
トリガー:実行したい日時
操作:プログラム/スクリプトにbatファイルパス、開始にbatファイルを置いたパス名
を書いた上でトリガーまで待ちました。
補足情報(FW/ツールのバージョンなど)
実行したOSはWindows 7 SP1です。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/02/20 00:48
2019/02/20 00:51
2019/02/20 01:20 編集