WMI Disk temperature

[pcurtis]

Not quite sure where to ask this but
 
How can I get the temperature of a hard drive using WMI?

I can't get my head around all the VB / Powershell stuff on the net.

Thanks.

[Jurassic Pork]

hello,
you can try my modified wmi utility utilwmi
to use the MSStorageDriver_ATAPISmartData wmi class you must change the wmi name space to root\WMI :
in utilwmi :

Code: Pascal  [Select][+][-]

1. objWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\WMI', '', '');

the class MSStorageDriver_ATAPISmartData doesn't work for all disk drive and as the temperature is a vendorspecific property the index can change according to manufacturer.
Here is a code to read the temperature from my WD hard disk  (you must execute application as administrator ) :

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button10Click(Sender: TObject);
2.   var WMIResult         : TFPObjectList;
3.       f                 : integer;
4.       retVal            : String;
5.       temperature       : String;
6.   begin
7.     WMIResult := GetWMIInfo('MSStorageDriver_ATAPISmartData', ['InstanceName','VendorSpecific']);
8.     for f := 0 to Pred(WMIResult.Count) do
9.     begin
10.       retVal := TStringList(WMIResult[f]).ValueFromIndex[0];
11.       Memo1.Lines.add(Retval);
12.       retVal := TStringList(WMIResult[f]).ValueFromIndex[1];
13.       temperature := retVal.Split(',')[163];
14.       Memo1.Lines.add('temperature : ' + temperature + ' °C');
15.     end;
16.  
17.     WMIResult.Free;
18.   end;

Result in attachment

Friendly, J.P

[pcurtis]

OK. Thanks I got it to work.

I have a Toshiba, the index is 199.

Thanks.