[VBS]1時間後にPCをシャットダウンするスクリプトを作る

最もシンプルな方法

今回は、VBSを使って、1時間後に電源を消す方法です。
※VBS使用する理由はこちら

事務の仕事をしていると、作業が後1時間ぐらいで終わるので、その後PCを消して帰らなくてはならないといったシチュエーションがあると思います。

Option Explicit
'変数設定
Dim wsh, Response

'一応確認メッセージを出す
Response = MsgBox("シャットダウンを予約してよろしいですか？", vbYesNo)

'YESなら60分後に電源を切る
If Response = vbYes Then
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run "%WINDIR%\system32\shutdown.exe -s -t 3600", 0
End If

上記のコードをメモ帳にコピペして、拡張子.vbsで保存するだけで動きます。

動作を変更する

Option Explicit
'変数設定
Dim wsh, Response

'一応確認メッセージを出す
Response = MsgBox("シャットダウンを予約してよろしいですか？", vbYesNo)

'YESなら60分後に電源を切る
If Response = vbYes Then
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run "%WINDIR%\system32\shutdown.exe -s -t 3600", 0
End If

この部分を変更することでいろいろいじれます。

実行時間を変えるには

シャットダウンまでの時間は秒単位です。
たとえば 30分にしたい場合は 以下のようになります。

wsh.Run "%WINDIR%\system32\shutdown.exe -s -t 1800", 0

ログアウトや再起動にするには

-sの部分を-lに変更するとログアウト

wsh.Run "%WINDIR%\system32\shutdown.exe -l -t 3600", 0

-sの部分を -rに変更すると再起動です。

wsh.Run "%WINDIR%\system32\shutdown.exe -r -t 3600", 0

その他、リモートデスクトップのログアウトもできるようです。

動かないときは

Windows2000にはshutdown.exeがないため、この方法ではできません。

 

 参考価格

これくらいの シンプルさ、難易度であれば、カシコでは5000円程度で作成できます。
※処理の追加が必要な場合は、その難易度や数によって金額が上がります。

お気軽にお見積りお待ちしております。