programmer´s real life and so on

デジタル時計の時と分が縦に並んだ表示で、四角い字体 (ここまでは好み)、海外旅行に使えるように高価ではなくデュアルタイム (これらが必須) という条件で随分前から腕時計を探していたのですが、やっと見つけて手に入れることができました。

PHILIPPE S+ARCK という浅草のビール会社のビルをデザインした人によるデザインのシリーズです。他にもワールドタイムのモデルで凝った表示をするものもあるのですが、欲しいのはワールドタイムではなくデュアルタイムだったのでこちらにしました。

業者さんっぽい人がヤフオクで売っているのですが、競り合う相手もいなくて開始価格の\11,950で買えました。定価が$95ですから海外で買うのとほぼ同じ値段です。普通の時計屋さんだともう少ししますので非常にありがたいですな。

シャットダウンスクリプトでうまくいったかと思ったら、シャットダウンスクリプトが実行されるタイミングが遅すぎてダメみたい。

フリーズするタイミングはシャットダウン開始直後なのに、シャットダウンスクリプトの実行はネットワークの切断などより後のタイミング。やっぱり手動で終了しないとダメだ…。

2つのコンピュータを同時に使用しているので Synergy をありがたく使っているのですが、僕の環境では Synergy を起動したままシャットダウンするとほぼ100%の確率でフリーズします。毎回タスクトレイの Synergy アイコンを右クリックして終了というのがいい加減鬱陶しくなってきたので、シャットダウン時にスクリプトを実行して Synergy のプロセスを kill することにしました。

まずシャットダウン時にスクリプトを実行するためには「ファイル名を指定して実行」に gpedit.msc を入力して「グループポリシー」の設定画面を表示させます。左のツリーに「Windows の設定」という項目があるので開くと「スクリプト(スタートアップ/シャットダウン)という項目が出てきます。

この中の「シャットダウン」をダブルクリックすると以下のウィンドウが表示されるので、シャットダウン時に実行したいスクリプトを追加します。

で、実行するスクリプトの中身は以下のとおり。
WMI を使ってプロセスの終了を行っています。ただ、自分のプロセスではないので Privilege を変更してから Terminate を行う必要があります。

strComputer = “.”
Set objWMIService = GetObject _
(”winmgmts:\\” & strComputer & “\root\cimv2″)
Set colProcessList = objWMIService.ExecQuery _
(”Select * from Win32_Process Where Name = ’synergys.exe’”)
For Each objProcess in colProcessList
objProcess.Security_.privileges.addasstring “sedebugprivilege”, true
objProcess.Terminate()
Next

役に立った？