3. Accessing Data for Electric Power, Temperature, and Processor Utilization
Express5800/R120g-1M, R120g-2M Maintenance Guide
167
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 can be run on Windows Server 2008.
Power consumption
3.1.1
Run the following command to access the power consumption readings on Baseboard Management Controller
(BMC) by using Intelligent Platform Management Interface (IPMI).
Network Function Code:
2Ch (Group Extension)
Command Code:
02h (Get Power Reading)
Request Data : 000001DCh
Below is the sample file (named as Power.vbs) created by using Visual Basic Script.
' 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 = &h2c
oinparams.lun = 0
oinparams.responderaddress = &h20
oinparams.command = &h02
oinparams.requestdata = array (&hdc, &h01, &h00, &h00)
oinparams.requestdatasize = 4
'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 = 0x" & hex(outparams.ResponseData(2))
'WScript.Echo " Data MS Byte = 0x" & hex(outparams.ResponseData(3))
WScript.Echo " Power Consumption = " & outparams.ResponseData(3)*256 + _
outparams.ResponseData(2) & " watts"
End If
' End Script
' Start Script
•
Command
example
C:¥VBS> cscript //nologo Power.vbs
