NEC Express5800 Series Maintenance Manual page 147

Chapter 3 Appendix
If raw And &h200 Then
Else
End If
End Select
End Sub
Sub GetIDString(rv_ls, rv_ms, rc_ls, rc_ms)
Dim tmpMessage
Dim outsdridstringtype
oinparams.networkfunction = &ha
oinparams.lun = 0
oinparams.responderaddress = &h20
oinparams.command = &h23
oinparams.requestdata = array(rv_ls, rv_ms, rc_ls, rc_ms, 47, 1)
oinparams.requestdatasize = 6
set outsdridstringtype = oipmi.execmethod_("requestresponse",oinparams)
Dim outsdridstring
Dim idlength, j
idlength = outsdridstringtype.ResponseData(3) and 31
oinparams.networkfunction = &ha
oinparams.lun = 0
oinparams.responderaddress = &h20
oinparams.command = &h23
oinparams.requestdata = array(rv_ls, rv_ms, rc_ls, rc_ms, 48, idlength)
oinparams.requestdatasize = 6
set outsdridstring = oipmi.execmethod_("requestresponse",oinparams)
tmpMessage = " ID String = "
For j = 3 to idlength + 2
tmpMessage = tmpMessage & Chr(outsdridstring.ResponseData(j))
Next
WScript.Echo tmpMessage
End Sub
'End Script

Execution example
C:¥VBS> cscript //nologo Sensor.vbs

Execution result
===========================================
ID String = FntPnl Amb Temp
Sensor Type = Temperature
Current Value = 27 degrees C
===========================================
ID String = DIMM1 Temp
Sensor Type = Temperature
Current Value = 35 degrees C
===========================================
ID String = DIMM2 Temp
Sensor Type = Temperature
Event Status: Unavailable
===========================================
Intake air temperature data is obtained from the sensor with an ID string that contains any of the following:
Amb, Ambient, or FrontPanel.
In the case of the sample above, the data is obtained from a sensor that contains FntPnl Amb Temp in its ID,
with a resulting intake air temperature of 27C.
3. Accessing Data for Electric Power, Temperature, and Processor Utilization
rv = 0 - ((&h400 - raw) and &h3ff)
rv = raw
Express5800/E120d-1 Maintenance Guide
147