「「コンピュータのロック」をするボタン」記事へのコメント

アイコン

[patagon (1453)]

コンピュータのロックの方のアイコンはWindowsの標準(%SystemRoot%\system32\SHELL32.dll)に鍵のようなものが入っています。かなり右のほうです。100番台かな。ただしちょっと小ぶりですが。

PCのシャットダウンについては別の方法としてVBSを使うものがあります。しかし環境によってはセキュリティソフトとの兼ね合いで使いにくいかも。
Windowsサーバー Hacks http://www.oreilly.co.jp/books/4873112265/ [oreilly.co.jp] の原著のサンプルダウンロードサイト http://examples.oreilly.com/winsvrhks/ [oreilly.com] からダウンロードして、目次 35. デスクトップ上にログオフアイコンを配置 に該当する 35_LogoffIcon.vbs がそれです。

これを以下のようにianswerのメッセージを日本語化。そしてRebootをShutdownに変更しました。VBSそのままだとアイコンを変えれないので、このVBSのショートカットを作るとアイコンを変えれます。

Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}" & _
"//./root/cimv2").ExecQuery("SELECT * FROM " & _
"Win32_OperatingSystem WHERE Primary = true")

'ianswer = MsgBox("Did you save your data first?"+vbLf++vbLf+ " LOGOFF?", _
ianswer = MsgBox("データを保存しましたか？"+vbLf++vbLf+ " LOGOFF?", _
vbCritical + vbYesNo, _
"Logoff?")

If ianswer = vbYes Then 'If OK, shut down

For Each OpSys In OpSysSet
'outParam = OpSys.Reboot
outParam = OpSys.Shutdown

If err.number 0 Then
WScript.echo "Error number: " & Err.Number & _
vbNewLine & _
"Description: " & Err.Description
End If

Next

Else ' user selected cancel
MsgBox "Logoff Aborted", , "Logoff Aborted"

End If