![background image](http://html1.mh-extra.com/html/nec/express5800-r120e-1m/express5800-r120e-1m_instruction-manual_4251897148.webp)
3. Accessing Data for Electric Power, Temperature, and Processor Utilization
Express5800/R120e-1M, R120e-2M Maintenance Guide
148
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
®
2008.
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 'OEM NetworkFunction
oinparams.lun = 0
oinparams.responderaddress = &h20
oinparams.command = &h0b 'Get Current Sensor Data Command
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 = 0x" & hex(outparams.ResponseData(1))
'WScript.Echo " Data MS Byte = 0x" & hex(outparams.ResponseData(2))
WScript.Echo " Power Consumption = " & outparams.ResponseData(2)*256 + _
outparams.ResponseData(1) & " watts"
End If
' End Script
•
Execution
example
C:¥VBS> cscript //nologo Power.vbs