I-4 Accessing Power and Performance Data' (Get SDR) for each recordDim Record_LS,Record_MS, Offset, LengthDim cnt, sensorNum, sensorType' First RecordRecord_LS = 0Record_MS = 0For cnt = 0 to RecordCount-1Offset = 0Length = 9oinparams.networkfunction = &haoinparams.lun = 0oinparams.responderaddress = &h20oinparams.command = &h23oinparams.requestdata = array(Reserve_LS, Reserve_MS, Record_LS, Record_MS, Offset, Length)oinparams.requestdatasize = 6set outparams = oipmi.execmethod_("requestresponse",oinparams)If outparams.Completioncode = 0 ThenIf outparams.ResponseData(6) = 1 Then ' Full Sensor Recordcall GetSensorType(Reserve_LS, Reserve_MS, Record_LS, Record_MS, sensorType)If sensorType = 1 Then ' TemperatureWScript.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 IfEnd IfRecord_LS = outparams.ResponseData(1)Record_MS = outparams.ResponseData(2)If Record_LS = &hff And Record_MS = &hff Thenexit ForEnd IfEnd IfNextSub GetSensorType(rv_ls, rv_ms, rc_ls, rc_ms, sensorType)Dim outtmpoinparams.networkfunction = &haoinparams.lun = 0oinparams.responderaddress = &h20oinparams.command = &h23oinparams.requestdata = array(rv_ls, rv_ms, rc_ls, rc_ms, 12, 2)oinparams.requestdatasize = 6set outtmp = oipmi.execmethod_("requestresponse",oinparams)sensorType = outtmp.ResponseData(3)End Sub
