strComputer = "." objWMIService = Getobject("winmgmts:\\" + strComputer + "\root\WMI") colItems = objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature",,48) For Each objItem In colItems ? "-----------------------------------" ? "MSAcpi_ThermalZoneTemperature instance" ? "-----------------------------------" ? "Current Temperature: " + transform(objItem.CurrentTemperature/100) ? "Critical Trip Point: " + transform(objItem.CriticalTripPoint/100) ? "Thermal Stamp: " + transform(objItem.ThermalStamp) Next