Intel® Business Client Software Development
Support for Intel® vPro™ software development and technologies associated with Intel vPro platforms.

CPU TDP

Julio_Cesar_S_
Beginner
1,255 Views

Hi,

Is there any api that provides the TDP (watts) processor?

I can't find.

Ty.

0 Kudos
6 Replies
Gael_H_Intel
Moderator
1,255 Views

We answer questions regarding Intel Active Management Technology (vPro) on this forum.  I do not know what SDK a TDP api would be a part of.  (Sorry..)

0 Kudos
Julio_Cesar_S_
Beginner
1,255 Views

ok sorry. =(

0 Kudos
Bernard
Valued Contributor I
1,255 Views

Maybe one of the MSR registers will be helpful.

0 Kudos
Julio_Cesar_S_
Beginner
1,255 Views

procedure TForm2.GetKernelPerfStateInfo;
const
WbemUser ='';
WbemPassword ='';
WbemComputer ='localhost';
wbemFlagForwardOnly = $00000020;
var
FSWbemLocator : OLEVariant;
FWMIService : OLEVariant;
FWbemObjectSet: OLEVariant;
FWbemObject : OLEVariant;
oEnum : IEnumvariant;
iValue : LongWord;
begin;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\WMI', WbemUser, WbemPassword);
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM KernelPerfState','WQL',wbemFlagForwardOnly);
oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
while oEnum.Next(1, FWbemObject, iValue) = 0 do
begin
Label5.Caption := (Format('Power %d',[Integer(FWbemObject.Power)]));// Uint32
FWbemObject:=Unassigned;
end;
end;

Don't show tdp. Tips?

0 Kudos
Bernard
Valued Contributor I
1,255 Views

Can you access directly these MSR registers( on Ivy Bridge) 0x648 ,0x649, 0x64A?

0 Kudos
constm
Beginner
1,255 Views

WMI.KernelPerfStates.Power does not exist. Don't crosspost this bullshit anymore. Just check.

WMI.KernelPerfStates.vbs :

Const wbemCimtypeDatetime  = 101    ' Date/time value

On Error Resume Next

Set d = CreateObject("WbemScripting.SWbemDateTime")
Set c = GetObject("winmgmts:\\.\root\WMI").InstancesOf("KernelPerfStates")

for each o in c

    WSH.Echo ""
    WSH.Echo "----"

for each p in o.Properties_

    if IsNull(p.Value) then
        WSH.Echo p.Name
    else
        if p.CIMType = wbemCimtypeDatetime then
            d.Value = p.Value
            WSH.Echo p.Name & " = " & d.GetVarDate()
        else
        if IsArray(p.Value) then
            WSH.Echo p.Name & " = " & Join(p.Value, ",")
        else
            WSH.Echo p.Name & " = " & p.Value
        end if
        end if
    end if
 
next

next


if Err <> 0 then
    WSH.Echo ""
    WSH.Echo "Error:", Hex(Err.Number), "-", Err.Description
    Err.Clear
end if

0 Kudos
Reply