![background image](http://html1.mh-extra.com/html/nec/express5800-r120b-1/express5800-r120b-1_user-manual_4248202572.webp)
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 id 2
tmpMessage = tmpMessage & Chr(outsdridstring.ResponseData(j))
Next
WScript.Echo tmpMessage
End Sub
'End Script
Содержание Express5800/R120b-1
Страница 20: ...Notes on Using Your Server 1 3 3 5 inch disk model...
Страница 87: ...3 24 Setting Up Your Server This page is intentionally left blank...
Страница 264: ...6 10 Installing and Using Utilities 4 Click Parameter File Creator Parameter File Creator will appear...
Страница 268: ...6 14 Installing and Using Utilities Windows Server 2003...
Страница 296: ...7 14 Maintenance This page is intentionally left blank...
Страница 350: ...8 54 Troubleshooting When you use a remote console 6 Each tool is selected and it starts...
Страница 438: ...9 82 Upgrading Your Server This page is intentionally left blank...
Страница 450: ...C 2 IRQ This page is intentionally left blank...
Страница 474: ...D 24 Installing Windows Server 2008 R2 4 Activate Windows The Windows activation is complete...
Страница 504: ...E 28 Installing Windows Server 2008 4 Activate Windows The Windows activation is complete...
Страница 564: ......
Страница 566: ...H 2 Using a Client Computer Which Has a CD Drive This page is intentionally left blank...
Страница 576: ...I 10 Accessing Power and Performance Data This page is intentionally left blank...
Страница 580: ...J 4 Product Configuration Record Table This page is intentionally left blank...