Dim u, s, CPUTemperature 
Set mCPU=GetObject("winmgmts:{impersonationLevel=impersonate}!root\wmi").ExecQuery("Select CurrentTemperature From MSAcpi_ThermalZoneTemperature")  
    For Each u In mCPU  
        s=s&u.CurrentTemperature 
    Next 
Set mCPU=Nothing        
CPUTemperature=(s-2732)/10 
MsgBox "The Current Temperature of Your CPU is: "&CPUTemperature&"℃" 
不知為什麼.我ibm手提電腦.運行時.可以顯示core 2 cpu 每一個的反回溫度.但就是不變化的.每次運行都一樣的數值..要重新開機.數字才會變一次...到底是為什麼了..我下載了一個查看cpu溫度的軟件.郤很正常的顯示core 2 2個cpu的溫度在不斷變化.... 那位有經驗啊..分享一下..找很久資料了.都是以上的代碼.但就沒人提到溫度不改變..