请问如何监控CPU温度！

59993330 · 发表于 2008-6-4 15:51:01

夏天到了.网吧好多的CPU风扇有问题，做个监控CPU温度的程序及时排除故障！
请高人给点建议和方法！
谢谢

[ 本帖最后由 59993330 于 2008-6-6 19:25 编辑 ]

Bone · 发表于 2008-6-4 20:41:19

查一下怎样用WMI获得CPU温度

59993330 · 发表于 2008-6-4 21:15:08

wmic baseboard list brief /format:hform >MyPC.htm
wmic cpu list full /format:hform >>MyPC.htm
wmic bios list brief /format:hform >>MyPC.htm
MyPC.htm

不知道温度怎么看请帮忙分析下！

马甲 · 发表于 2008-6-4 22:46:58

Dim $temp = ""
While 1
    $objWMIService = ObjGet("winmgmts:\\.\root\WMI") 
    $colItems = $objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature") 
    $temp = ""
    For $objItem in $colItems
        $temp &= "CurrentTemperature: " & ($objItem.CurrentTemperature - 2732) / 10 & "°C" & @LF
    Next
    ToolTip(StringTrimRight($temp,1),100,0)
    $objWMIService = 0
    Sleep(5000)
WEnd

59993330 · 发表于 2008-6-5 11:25:50

能否弹出个对话框显示CPU温度。
上面的代码看不明白！

望不吝赐教！

dingamao · 发表于 2008-6-5 12:24:52

Dim $temp

    $objWMIService = ObjGet("winmgmts:\\.\root\WMI") 
    $colItems = $objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature") 
    $temp = ""
    For $objItem in $colItems
        $temp &= "CurrentTemperature: " & ($objItem.CurrentTemperature - 2732) / 10 & "°C" & @LF
    Next
    MsgBox(0,"当前CPU温度",StringTrimLeft($temp,20),100)

59993330 · 发表于 2008-6-6 09:29:12

不好意思还是显示不出来！

lxz · 发表于 2008-6-6 09:37:44

原帖由 dingamao 于 2008-6-5 12:24 发表
[au3]Dim $temp

$objWMIService = ObjGet("winmgmts:\\.\root\WMI")
$colItems = $objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature")
$temp = ""
For $objItem in $ ...

可以显示

59993330 · 发表于 2008-6-6 17:28:12

换成 AUTOIT 3.2.9.1.1 版本就好了！
谢谢

hhasee · 发表于 2009-7-2 13:21:18

还是不行啊！

menfan · 发表于 2009-9-7 12:31:38

呵呵，学习一下。。

rikthhpgf2005 · 发表于 2010-4-7 13:06:13

硬盘???温度

basketballkun · 发表于 2010-4-14 18:57:25

支持dingamao。。可以用

the886 · 发表于 2010-8-14 05:44:02

看看看看..............................

baijiri · 发表于 2011-1-21 05:57:00

学习了

		自动登录	找回密码
密码			加入

请问如何监控CPU温度！

本帖子中包含更多资源

本帖子中包含更多资源