$strComputer = "."

$colTempProbe = GetObject("Winmgmts:\\"+$strComputer+"\root\wmi").InstancesOf("MSAcpi_ThermalZoneTemperature")

For Each $obj In $colTempProbe      
	
	$ctemp = $obj.CurrentTemperature
	
	$ctemp = ($ctemp - 2732)/10
	
	? 'Celsius: '$ctemp
	
	$ctp = $obj.CriticalTripPoint
	
	$ctp = ($ctp - 2732)/10
	
	? 'Celsius TripPoint: '$ctp 
	
	$ftemp = $ctemp * 9 / 5 + 32
	
	? 'Fahrenheit: '$ftemp
	
	$ftp = $ctp * 9 / 5 + 32
	
	? 'Fahrenheit TripPoint: '$ftp 
	
    	$Num = $Num +1
Next

If $Num = 0 
	
    ? "No temperature probe data"

EndIf

Get $ 

Break On
$strComputer = "."
$objWMIService = GetObject("winmgmts:\\" + $strComputer + "\root\wmi")
$colItems = $objWMIService.ExecQuery("Select * from MSAcpi_ThermalZoneTemperature",,48)
For each $objItem in $colItems
  "Active: " + $objItem.Active ?
  For each $Item in $objItem.ActiveTripPoint
    "*ActiveTripPoint: " + $Item ?
  Next
  "ActiveTripPointCount: " + $objItem.ActiveTripPointCount ?
  "CriticalTripPoint: " + $objItem.CriticalTripPoint ?
  "CurrentTemperature: " + $objItem.CurrentTemperature ?
  "InstanceName: " + $objItem.InstanceName ?
  "PassiveTripPoint: " + $objItem.PassiveTripPoint ?
  "Reserved: " + $objItem.Reserved ?
  "SamplingPeriod: " + $objItem.SamplingPeriod ?
  "ThermalConstant1: " + $objItem.ThermalConstant1 ?
  "ThermalConstant2: " + $objItem.ThermalConstant2 ?
  "ThermalStamp: " + $objItem.ThermalStamp ?
  ?
Next