Расход картриджей - MS Excel - Ответ 15133340

Function getSNMPVal(server, oid)
    mib0 = "1.3.6.1.2.1.43.11.1.1.8.1.3" 'Марка принтера'
    mib1 = "1.3.6.1.2.1.43.11.1.1.8.1.2" 'Объем картриджа'
    mib2 = "1.3.6.1.2.1.43.5.1.1.17.1'" 'Серийный номер'
    mib3 = "1.3.6.1.2.1.25.3.5.1.1.1" 'Printing status'
    mib4 = "1.3.6.1.2.1.43.16.5.1.2.1.1" 'Device status'
    mib5 = "1.3.6.1.2.1.1.5.0" 'Host name'
    mib6 = "1.3.6.1.2.1.2.2.1.6.1" 'Mac adress'
    mib7 = "1.3.6.1.2.1.43.10.2.1.4.1.1" 'Page'
    
On Error Resume Next
Dim strCommand
Dim oShell
Dim oScriptExec
Dim snmpget_stdout
Dim retval
Dim aRetSplit
  strCommand = "SnmpGet.exe -r:" & server & " -t:5 -c:public" & " -o:" & oid
 
  Set oShell = CreateObject("WScript.Shell")
  Set oScriptExec = oShell.Exec(strCommand)
  snmpget_stdout = oScriptExec.StdOut.ReadAll
 
  If InStr(snmpget_stdout, "Value=") > 0 Then
aRetSplit = Split(snmpget_stdout, "Value=")
retval = Replace(Trim(aRetSplit(1)), Chr(34), "")
                     'delete double quotes
retval = Replace(retval, vbCrLf, "")
                    ' with the stdout.readall method you get
                      'crlf's at the end of your strings. e.g. asc(15) asc(10)
     End If
  getSNMPVal = retval
 End Function