1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

pc = "."
li = "Prozessorinfos:" & vbcr
Set wmi = GetObject("winmgmts:\\" & pc & "\root\cimv2")
Set col = wmi.ExecQuery("Select * from Win32_Processor",,48)
For Each obj in col
li = li & "Rechnername: " & obj.SystemName & vbcr 
li = li & "Modell: " & obj.Name & vbcr
li = li & "ID: " & obj.ProcessorId & vbcr
li = li & "Version: " & obj.Version & vbcr 
li = li & "Revision: " & obj.Revision & vbcr
li = li & "Kennzeichnung: " & obj.SocketDesignation & vbcr
li = li & "Typ: " & obj.role & vbcr
li = li & "Mhz: " & obj.CurrentClockSpeed & vbcr
li = li & "max. Mhz: " & obj.MaxClockSpeed & vbcr
li = li & "Beschreibung: " & obj.Description & " / " & obj.Caption & vbcr
li = li & "Hersteller: " & obj.Manufacturer & vbcr
Next
MsgBox (li)					

1:
2:
3:
4:
5:
6:
7:
8:

pc = "."
li = "Prozessorinfos:" & vbcr
Set wmi = GetObject("winmgmts:\\" & pc & "\root\cimv2")
Set col = wmi.ExecQuery("Select * from Win32_Processor",,48)
For Each obj in col
li = li & "CPUTemperatur: " & obj.GetCPUTemperature & vbcr 
Next
MsgBox (li)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

uses
  .... Activex, WbemScripting_TLB;


function GetWMIstring2 (wmiHost, wmiClass, wmiProperty : string):string;
var  // These are all needed for the WMI querying process
  Locator:  ISWbemLocator;
  Services: ISWbemServices;
  SObject:  ISWbemObject;
  ObjSet:   ISWbemObjectSet;
  SProp:    ISWbemProperty;
  Enum:     IEnumVariant;
  Value:    Cardinal;
  TempObj:  OleVariant;
  SN: string;
begin
  try
  Locator := CoSWbemLocator.Create;
   Services :=  Locator.ConnectServer(wmiHost, 'root\wmi', '', '', '','', 0, nil);
  ObjSet := Services.ExecQuery('SELECT * FROM '+wmiClass, 'WQL',
    wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
  Enum :=  (ObjSet._NewEnum) as IEnumVariant;
  while (Enum.Next(1, TempObj, Value) = S_OK) do
  begin
    SObject := IUnknown(tempObj) as ISWBemObject;
    SProp := SObject.Properties_.Item(wmiProperty, 0);
    if VarIsNull(SProp.Get_Value) then
      result := ''
    else
    begin
      SN := SProp.Get_Value;
      result :=  SN;
    end;
  end;
  except
   on exception do
    result := '';
   end;
end;


procedure TForm1.WMIdata(Sender: TObject);
var tmpstr : string;   cputemp : Integer;
begin
tmpstr := getWMIstring2('','MSAcpi_ThermalZoneTemperature','CurrentTemperature');
  if tmpstr <> '' then         
  Begin
    cputemp:= (StrToInt(tmpstr) - 2732) div 10;
    CPUTemperature1.caption := IntToStr(cputemp) + ' °C'
  end else
    CPUTemperature1.Caption := 'ERROR';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

strComputer = "."

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
   Set col = objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each obj in col
li = li &  "Active: " & objItem.Active
      strActiveTripPoint = Join(objItem.ActiveTripPoint, ",") & vbcr
li = li &  "ActiveTripPoint: " & strActiveTripPoint & vbcr
li = li &  "ActiveTripPointCount: " & objItem.ActiveTripPointCount & vbcr
li = li &  "CriticalTripPoint: " & objItem.CriticalTripPoint v
li = li &  "CurrentTemperature CPU: " & (objItem.CurrentTemperature - 2732) / 10 & " °C" & vbcr
li = li &  "InstanceName: " & objItem.InstanceName & vbcr
li = li &  "PassiveTripPoint: " & objItem.PassiveTripPoint & vbcr
li = li &  "Reserved: " & objItem.Reserved & vbcr
li = li &  "SamplingPeriod: " & objItem.SamplingPeriod & vbcr
li = li &  "ThermalConstant1: " & objItem.ThermalConstant1 & vbcr
li = li &  "ThermalConstant2: " & objItem.ThermalConstant2 & vbcr
li = li &  "ThermalStamp: " & objItem.ThermalStamp & vbcr
next
MsgBox (li)