Windows8にシャットダウンのショートカットを作る
Windowsにカウントダウン式のシャットダウンを行うスクリプトを作ってみます。
Windows8でなくとも、WindowsXPやWindows7でも実行できます。
Windows8のシャットダウンはタッチパネルでない場合、マウスを右端上下のホットコーナーに合わせて、チャームを出し、設定からシャットダウンを選ぶ、という手順が必要です。
Shutdown.exe
WindowsにはXPのころからshutdown.exeという実行ファイルがあり、これを直接実行することで、シャットダウンを行うことができました。
コマンドプロンプトを立ち上げて以下を入力すると、30秒後にシャットダウンに入ります。（保存していない書類があるときは実行しないでください）
[text]
shutdown.exe -s -t 30
[/text]
この三十秒の間に、シャットダウンを中止するには
[text]
shutdown.exe –a
[/text]
で中止することができます。
しかし、シャットダウンのためにコマンドプロンプトからコマンドを入力するのは、むしろ手間がかかるので、実際に実行する人はいないと思います。
筆者の理想としては、Macのシステム終了のように、終了を実行してから、自動的にカウントダウンが始まり、その間に即時終了とキャンセルのできるものです。カウントダウンが終わると、自動的にシステムが終了します。
これにできるだけ近いスクリプトを作って、ショートカットから実行できるようにしてみたいと思います。
スクリプト実例
ファイル名: shutdown.vbs
[vb]
Option Explicit
'define
Dim execParam
Dim intCounter
Dim rtn
Dim WSHobj
Dim Args
Dim WaitCounter
Dim flgForth
Const DEFAULT_COUNTER = 30
Const MINIMUM_COUNTER = 10
flgForth = 0
'Argument Check and Set
If WScript.Arguments.Count = 0 then
WaitCounter = DEFAULT_COUNTER
Else
Set execParam = WScript.Arguments
If IsNumeric(execParam(0)) = false Then
WaitCounter = DEFAULT_COUNTER
Else
WaitCounter = Cint(execParam(0))
End If
If WScript.Arguments.Count = 2 Then
If execParam(1)="f" Then flgForth = 1
End If
End If
If WaitCounter <= MINIMUM_COUNTER Then WaitCounter = MINIMUM_COUNTER
'Waiting loop
For intCounter = WaitCounter to 1 step -1
Set WSHobj = WScript.CreateObject("WScript.Shell")
Args = "cscript ""popup.vbs""" _
& " """ & CStr(intCounter) & "秒後にシャットダウンします" & Chr(13) & Chr(10) & "OKですぐにシャットダウンします""" _
& " 1" _
& " ""シャットダウン""" _
& " 1"
rtn = WSHObj.Run (Args,0,true)
Select Case Rtn
Case 1
call procShutdown
Case 2
call procAbort
Case Else
'
End Select
Next
Call procShutdown
Wscript.Quit
'shutdown Procedure
Sub procShutdown
Dim Wshshell
Set Wshshell = WScript.CreateObject("WScript.shell")
If flgForth=1 then
Wshshell.run("shutdown.exe -s -f -t 0")
Else
Wshshell.run("shutdown.exe -s -t 0")
End If
WScript.Quit
End Sub
'abort Procedure
Sub procAbort
WScript.Quit
End Sub
[/vb]
ファイル名: popup.vbs
[vb]
Option Explicit
Dim Arg
Dim rtn
Dim WSHObj
Set WSHObj = WScript.CreateObject("WScript.Shell")
Set Arg = WScript.Arguments
rtn = WSHObj.Popup(Arg(0),Arg(1),Arg(2),Arg(3))
if rtn=1 or rtn = 2 then WScript.Quit(rtn)
Set WSHobj = Nothing
[/vb]
使い方
この2つのスクリプトをそれぞれ、vbsファイルとして保存します。
それらを一つのフォルダに格納し、起動する際はshutdown.vbsをダブルクリックします。
カウントダウンが始まります。OKを押せば即時終了。キャンセルを押すと終了をキャンセルできます。
カウントダウンがおわると、自動的にシャットダウンします。
ショートカットのつくり方
shutdown.vbsを右クリックし、ショートカットの作成を選択します。
作成されたショートカットのプロパティを開きます。
ここで「アイコンの変更」を選択し、電源ボタンに変えてみます。
このアイコンを設定して、デスクトップにコピーすれば、いつでもショートカットからアクセスできます。
オプション
このオプションは指定しなくとも、利用することができます。
vbsファイルの後に半角スペースを一つ開けて、数値を入力すると、カウントダウン秒数を変更できます。
最低限の猶予のために10秒以下は設定できなくなっています。
カウントダウン秒数の次に、スペースを一つ開けて、fと入力すると、アプリケーションの応答を待たず、強制的にシャットダウンします。
保存していないファイルも警告なしにシャットダウンし、失われてしまいます。
あまりお勧めのオプションでないので、よく理解していただいたうえでお使いください。
