okdtの日記： 「コンピュータのロック」をするボタン

シャットダウンするボタンが便利だったので、もっと使うだろうと思って作ってみました。思いのほかスムーズにPCをロックできるのが結構快感かも。

http://okdt.org/blog/2006/12/blog-post.html

ぉー便利（＾＾ｖ

[kehi (11116)]

早速取り付けました。すごい便利なボタンですね。
XPになってからユーザーの切り替えボタンを押すのがずっと面倒だったもので

てかokdtさんっていつぞやのExcelのSDIのTipsもそうでしたが
LinuxのみならずWindowsHackも得意ですね。意外というか引き出しが多くていいですね(^^v

Re:ぉー便利（＾＾ｖ

[okdt (17)]

kehiさんコメントはやっ！（ｗ）やっぱスラドにも書くもんやなー。

いやはや、Windowsにしてもなんにしても、使っている機能しか知らないですね。
欲しい機能の探し方も、どんなOSでも一緒のような気がするし（ｗ

まー、いずれにしても、このボタンは「すこん」とログアウトしてくれるので気持ちいいのがポイントです。

ミ田 + L

[argon (3541)]

XP なら ミ田 + L でロックできますね。

Re:ミ田 + L

[okdt (17)]

さっと使えるボタンを作るというアイデアはportableでgenericですが、
Windowsキーを使うというアプローチはそうではありません。

よって、Windowsキー使うショートカットに依存するとマケだと思っています。

アイコン

[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