Accessing Data For Electric Power, Temperature, And Processor Utilization; Windows; Power Consumption - NEC R120d-1E N8100-1954F Maintenance Manual

Chapter 3 Appendix
3.
Accessing Data for Electric Power, Temperature,
and Processor Utilization
This section describes how to access data related to input power consumption in watts, intake temperature, and
all logical processor utilizations in the Express Server during usual operation in accordance with ENERGY
®
STAR Program Requirements.
3.1

Windows

The sample program below is verified to be run normally on Windows Server
3.1.1

Power consumption

Execute the following commands to access power consumption readings on BMC (Baseboard Management
Controller) via IPMI (Intelligent Platform Management Interface).
Network Function Code: 3Eh (Controller-specific OEM)
Command Code: 0Bh (Get Current Sensor Data)
Below is the sample file created by using Visual Basic Script (e.g. Power.vbs).
' Start Script
Option Explicit
' Prepare for IPMI Driver
Dim osvc, oclass
Dim oinstance, oipmi
set osvc = getobject("winmgmts:root¥wmi")
set oclass = osvc.get("microsoft_ipmi")
for each oinstance in osvc.instancesof("microsoft_ipmi")
set oipmi = oinstance
next
'Format the IPMI command request
Dim oinparams
set oinparams = oclass.methods_("requestresponse").inparameters
oinparams.networkfunction = &h3e
oinparams.lun = 0
oinparams.responderaddress = &h20
oinparams.command = &h0b
oinparams.requestdatasize = 0
'call the driver
Dim outparams
set outparams = oipmi.execmethod_("requestresponse",oinparams)
WScript.Echo " Completion Code = 0x" & hex(outparams.Completioncode)
If outparams.Completioncode <> 0 Then
Wscript.Echo " Not supported"
Else
'WScript.Echo " Data LS Byte
'WScript.Echo " Data MS Byte
WScript.Echo " Power Consumption = " & outparams.ResponseData(2)*256 + _
End If
' End Script
•
Execution example
C:¥VBS> cscript //nologo Power.vbs
•
Execution result
Completion Code = 0x0
Power Consumption = 76 watts
160

3. Accessing Data for Electric Power, Temperature, and Processor Utilization

'OEM NetworkFunction
'Get Current Sensor Data Command
= 0x" & hex(outparams.ResponseData(1))
= 0x" & hex(outparams.ResponseData(2))
outparams.ResponseData(1) & " watts"
Express5800/R120d-1E, R120d-2E Maintenance Guide
®
2008.