NEC Express5800 Maintenance Manual page 161

第 3 章 附录
case 4:
If raw And &h8 Then
rv = 0 - ((&h10 - raw) and &h0f)
Else
rv = raw
End If
case 8:
If raw And &h80 Then
rv = 0 - ((&h100 - raw) and &h0ff)
Else
rv = raw
End If
case 10:
If raw And &h200 Then
rv = 0 - ((&h400 - raw) and &h3ff)
Else
rv = raw
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

执行示例
C:¥VBS> cscript //nologo Sensor.vbs

执行结果
===========================================
ID String = Baseboard Temp4
Sensor Type = Temperature
Current Value = 45 degrees C
===========================================
ID String = Fnt Pnl Temp
Sensor Type = Temperature
Current Value = 27 degrees C
===========================================
ID String = CPU1_DIMM1 Temp
Sensor Type = Temperature
Current Value = 35 degrees C
===========================================
ID String = CPU1_DIMM2 Temp
Sensor Type = Temperature
Event Status: Unavailable
===========================================
进气温度数据可从传感器上获得，传感器有一个 ID 字串包含以下任一内容: Amb, Ambient, 或者 Front
Panel。
在上述示例中，从包含 Fnt Pnl Temp 的传感器 ID 中获得了数据，其进气温度的结果为 27C。
Express5800/T110g-S, R110g-1E, T110g-E 维护指南
获取关于电源、温度和处理器使用率的数据
3.
161