職場のプリンターからアラートコードを取得して、正確に何が起こっているかを確認しようとしていますが、SNMPクエリを送信するたびに結果が返されません。SimpleSNMP参照を使用しています。
プリンターはCanoniR-ADVC5045です。
これが私が関数を呼び出す方法です:
Dim strAlertCode As String = SNMPQueryGet("1.3.6.1.2.1.43.18.1.1.7")
これは機能です:
Private Function SNMPQueryGet(ByVal OID As String)
Dim strResult As String = "True"
Dim host As String = "192.168.1.202"
Dim community As String = "public"
Dim requestOid() As String
Dim result As Dictionary(Of Oid, AsnType)
requestOid = New String() {OID}
Dim snmp As SimpleSnmp = New SimpleSnmp(host, community)
If Not snmp.Valid Then
strResult = True
End If
result = snmp.Get(SnmpVersion.Ver1, requestOid)
If result IsNot Nothing Then
Dim kvp As KeyValuePair(Of Oid, AsnType)
For Each kvp In result
If Not kvp.Key.ToString() = "" Then
strResult = kvp.Value.ToString()
Else
strResult = "True"
End If
Next
Else
strResult = "True"
End If
Return strResult
End Function
編集
プリンターMIBPDF:https ://dl.dropbox.com/u/19613123/MIB_iR-ADV-C5051-C5045-C5035-C5030_v120_non.pdf