NEC N8100-1668F, Руководство пользователя

Страница: 562 / 572

I-4 Accessing Power and Performance Data
' (Get SDR) for each record
Dim Record_LS,Record_MS, Offset, Length
Dim cnt, sensorNum, sensorType
' First Record
Record_LS = 0
Record_MS = 0
For cnt = 0 to RecordCount-1
Offset = 0
Length = 9
oinparams.networkfunction = &ha
oinparams.lun = 0
oinparams.responderaddress = &h20
oinparams.command = &h23
oinparams.requestdata = array(Reserve_LS, Reserve_MS, Record_LS, Record_MS, Offset, Lengt
h)
oinparams.requestdatasize = 6
set outparams = oipmi.execmethod_("requestresponse",oinparams)
If outparams.Completioncode = 0 Then
If outparams.ResponseData(6) = 1 Then ' Full Sensor Record
call GetSensorType(Reserve_LS, Reserve_MS, Record_LS, Record_MS, sensorType)
If sensorType = 1 Then ' Temperature
WScript.Echo "==========================================="
call GetIDString(Reserve_LS, Reserve_MS, Record_LS, Record_MS)
WScript.Echo " Sensor Type = Temperature"
sensorNum = outparams.ResponseData(10)
call GetSensor(Reserve_LS, Reserve_MS, Record_LS, Record_MS,sensorNum)
End If
End If
Record_LS = outparams.ResponseData(1)
Record_MS = outparams.ResponseData(2)
If Record_LS = &hff And Record_MS = &hff Then
exit For
End If
End If
Next
Sub GetSensorType(rv_ls, rv_ms, rc_ls, rc_ms, sensorType)
Dim outtmp
oinparams.networkfunction = &ha
oinparams.lun = 0
oinparams.responderaddress = &h20
oinparams.command = &h23
oinparams.requestdata = array(rv_ls, rv_ms, rc_ls, rc_ms, 12, 2)
oinparams.requestdatasize = 6
set outtmp = oipmi.execmethod_("requestresponse",oinparams)
sensorType = outtmp.ResponseData(3)
End Sub