Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                          InstancesOf("Win32_ComputerSystem") 
For Each colSettings In wmiObjSet
   ' 判斷溫度狀態
   Select Case colSettings.ThermalState
       Case 1: WScript.Echo "其他"
       Case 2: WScript.Echo "未知"
       Case 3: WScript.Echo "安全"
       Case 4: WScript.Echo "警告"
       Case 5: WScript.Echo "嚴重"
       Case 6: WScript.Echo "無法復原"
   End Select
Next
复制代码