WMI(Windows管理機構) について語ってください
Function ACPI_CPUTemp()
dim PFU, r, lu
Set PFU = GetObject("winmgmts:\\localhost\root\wmi").ExecQuery _
("SELECT CurrentTemperature FROM MSAcpi_ThermalZoneTemperature")
For Each U In PFU
r = r & U.CurrentTemperature
Next
ACPI_CPUTemp = (r - 2732) / 10
Set PFU = Nothing
End Function
ノートパソコンのCPU温度を取得するこんなスクリプトを拾ってきました。
一応これで温度が取得できるようですが、OS起動時か電源がAC／バッテリで切り替わった時点
の温度が取得できるだけで、リアルタイムにモニターできないようです。
WMIが持ってる情報を更新するなりして、現在のCPU温度を取得する方法はないんでしょうか？
dim PFU, r, lu
Set PFU = GetObject("winmgmts:\\localhost\root\wmi").ExecQuery _
("SELECT CurrentTemperature FROM MSAcpi_ThermalZoneTemperature")
For Each U In PFU
r = r & U.CurrentTemperature
Next
ACPI_CPUTemp = (r - 2732) / 10
Set PFU = Nothing
End Function
ノートパソコンのCPU温度を取得するこんなスクリプトを拾ってきました。
一応これで温度が取得できるようですが、OS起動時か電源がAC／バッテリで切り替わった時点
の温度が取得できるだけで、リアルタイムにモニターできないようです。
WMIが持ってる情報を更新するなりして、現在のCPU温度を取得する方法はないんでしょうか？
|
|
|