ノートPCが熱いのでCPU温度を計測 - 学び、そして考える

暖かくなってきた今日この頃。パソコンには優しくない季節になってきました。 愛用の Lenovo X61 Tablet。こいつのネタを書くときは決まって愚痴っぽくなるのだが、それは期待が大きいから。決して嫌っているわけではありません。 熱いのです。排気口のみならず、キーボードの表面が熱いのです。カチカチ入力してると指先が温められるのです。非常に不快。 で、どのくらい温度が上がっているのか計ってみようと。VBScriptでWMI使えばできるかな。 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI") Set colItems = objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature")