pcl_test

MsgBox "CPU 温度 : " & CPU_Temperature & "℃"

Function CPU_Temperature()
Set WMIsvc = GetObject("winmgmts:\\.\root\wmi")
Set CltItems = WMIsvc.ExecQuery("Select * from MSAcpi_ThermalZoneTemperature",,48)

For Each CltItem in CltItems
    CPU_Temperature = CltItem.CurrentTemperature
Next
CPU_Temperature = (CPU_Temperature - 2732) / 10
End Function
复制代码