ノートPCが熱いのでCPU温度を計測

暖かくなってきた今日この頃。パソコンには優しくない季節になってきました。
愛用の Lenovo X61 Tablet。こいつのネタを書くときは決まって愚痴っぽくなるのだが、それは期待が大きいから。決して嫌っているわけではありません。
熱いのです。排気口のみならず、キーボードの表面が熱いのです。カチカチ入力してると指先が温められるのです。非常に不快。

で、どのくらい温度が上がっているのか計ってみようと。VBScriptでWMI使えばできるかな。

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each objItem in colItems
	WScript.Echo (objItem.CurrentTemperature - 2732) / 10.0
Next

CurrentTemperature の値は、ケルビンに10を掛けた値らしいので、2732 を引いて10で割っています。
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2226342&SiteID=1

WMIはクラスの数が膨大で覚えきれるものではないので、Scriptomaticのようなツールが無いと私は生きていけません。

実行結果は 53℃。結構高めですね。

冷却台とか欲しくなった。

【2008年モデル】ELECOM ノートパソコン用冷却台 冷え冷えクーラー SX-CL06SV