GET BIOS INFO [CPU temperature]

[Amen]

Hi i want to make a prog that will read cpu[s temperature.From bios i guess.It is possible?

Edited January 31, 2006 by Amen

[GaryFrost]

If the system has it i believe this get's the info wanted (needs beta)

expandcollapse popup

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_TemperatureProbe", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $Output = $Output & "Accuracy: " & $objItem.Accuracy & @CRLF
      $Output = $Output & "Availability: " & $objItem.Availability & @CRLF
      $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
      $Output = $Output & "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
      $Output = $Output & "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
      $Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
      $Output = $Output & "CurrentReading: " & $objItem.CurrentReading & @CRLF
      $Output = $Output & "Description: " & $objItem.Description & @CRLF
      $Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF
      $Output = $Output & "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
      $Output = $Output & "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
      $Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output = $Output & "IsLinear: " & $objItem.IsLinear & @CRLF
      $Output = $Output & "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
      $Output = $Output & "LowerThresholdCritical: " & $objItem.LowerThresholdCritical & @CRLF
      $Output = $Output & "LowerThresholdFatal: " & $objItem.LowerThresholdFatal & @CRLF
      $Output = $Output & "LowerThresholdNonCritical: " & $objItem.LowerThresholdNonCritical & @CRLF
      $Output = $Output & "MaxReadable: " & $objItem.MaxReadable & @CRLF
      $Output = $Output & "MinReadable: " & $objItem.MinReadable & @CRLF
      $Output = $Output & "Name: " & $objItem.Name & @CRLF
      $Output = $Output & "NominalReading: " & $objItem.NominalReading & @CRLF
      $Output = $Output & "NormalMax: " & $objItem.NormalMax & @CRLF
      $Output = $Output & "NormalMin: " & $objItem.NormalMin & @CRLF
      $Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
      $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
      $Output = $Output & "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
      $Output = $Output & "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
      $Output = $Output & "Resolution: " & $objItem.Resolution & @CRLF
      $Output = $Output & "Status: " & $objItem.Status & @CRLF
      $Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF
      $Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
      $Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF
      $Output = $Output & "Tolerance: " & $objItem.Tolerance & @CRLF
      $Output = $Output & "UpperThresholdCritical: " & $objItem.UpperThresholdCritical & @CRLF
      $Output = $Output & "UpperThresholdFatal: " & $objItem.UpperThresholdFatal & @CRLF
      $Output = $Output & "UpperThresholdNonCritical: " & $objItem.UpperThresholdNonCritical & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_TemperatureProbe" )
Endif


Func WMIDateStringToDate($dtmDate)

 Return (StringMid($dtmDate, 5, 2) & "/" & _
 StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
 & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

[Nuffilein805]

@gafrost: is your script working with your system? if yes what do you use?

[Amen]

"localhost" can be any computername on my lan?Can ask remote info?

[GaryFrost]

"localhost" can be any computername on my lan?Can ask remote info?

just change localhost to computer name

[GaryFrost]

@gafrost: is your script working with your system? if yes what do you use?

I'll have to test it at home, this system at work doesn't have a temp. probe, the one at home does.

[Amen]

I did that.Script seems not working for me.When i am putting another computername an error occurs.Thanx anyway for your help i will research on your script.My bios has pc health status

Edited January 31, 2006 by Amen