NEC Express5800/R120b-2 Betriebsanweisung PDF herunterladen (Seite 548)

100

101

I-6 Accessing Power and Performance Data

Sub get2complement(raw, rv, bit)

Select Case bit

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))

WScript.Echo tmpMessage

End Sub

'End Script

1 2 ... 543 544 545 546 547 548 549 550 551 552 553 554 555 556

Kommentare zu diesen Handbüchern

Keine Kommentare

NEC Express5800/R120b-2 Betriebsanweisung Seite 548

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Server NEC Express5800/R120b-2