Windows8で終了オプションダイアログを呼び出すスクリプトを作る

メモ帳などを起動してテキストファイルを作成します。

テキストには下記のように記述してください。（コピーでOKです）

dim objShell
set objShell = CreateObject("shell.application")
objshell.ShutdownWindows
set objShell = nothing

VBScript コードを書いています。WindowsのShellオブジェクト (ShellApplication)を呼び出して「ShutdownWindows」を実行します。これで終了オプションダイアログを呼び出します。

※「dim objShell」と「set objShell = nothing」は別に無くても実行できますが、きっちり処理の開始からメモリ解放までを書いたほうがいいような気がするので書きました。

テキストを保存したら、テキストファイルの拡張子を「.vbs」に変更します。

これでこのファイルはプログラムとして起動させることができます。
ダブルクリックをして起動させてみてください。終了オプションダイアログが表示されれば成功です。

ブログ内リンク

第7回 ファイルの種類を識別する文字列「拡張子」について そのファイルが一体どのようなファイルなのかを識別するための文字列である「拡張子」について解説するページです。この情報を利用するとユーザーも一目でどのようなファイルなのか判断できるようになります。

先ほど作成したVBScriptを任意の場所に移動・保存させます。

VBSファイルのショートカットを作成します。

作成したショートカットファイルを右クリックし、「プロパティ」を選択します。

「ショートカット」タブを開いて、「リンク先」の先頭に「wscript」を付け加えて適用します。
ファイルのパスと「wscript」の間には半角スペースを入れます。

すると、アイコンが変化します。

ショートカットアイコンであれば好きにアイコンが変更できるので、わかりやすいアイコンへ変更してみます。

「ショートカット」タブ内の「アイコンの変更」を選択します。

VBSファイルになっているので、アイコンの参照先は「wscript.exe」になっていますが、ここは数が少ないので「SHELL32.dll」を選択します。参照場所は下記の通りです。

%SystemRoot%system32SHELL32.dll

電源ボタンのようなアイコンがあるので、今回はこれにしましょう。

作成したショートカットファイルをタスクバーへ登録します。

「WScript オブジェクト」を利用することでVBScriptをDOS画面を表示させずに実行させることができます。似たオブジェクトで「cscript オブジェクト」も使えますが、こちらは実行すると一瞬だけDOS画面が表示させるのでこれくらいのスクリプトなら「WScript オブジェクト」の方がスマートです。

タスクバーへ登録し、実行して終了オプションダイアログが表示されたら成功です。