Узнать серийный номер удаленного принтера в сети

Public Sub SNMPserial(ByVal ip As String)
        Try
            arrSNMP(1) = String.Empty
            Dim community As New OctetString("public")
            Dim param As New AgentParameters(community)
            param.Version = SnmpVersion.Ver1
            Dim agent As New Net.IPAddress(ip) 'IP address
            Dim target As New UdpTarget(CType(agent, System.Net.IPAddress), 161, 2000, 1)
            Dim pdu As New Pdu(PduType.Get)
            pdu.VbList.Add("1.3.6.1.2.1.43.5.1.1.17.1") 'Серийный номер
            Dim result As SnmpV1Packet = CType(target.Request(pdu, param), SnmpV1Packet)
            If result IsNot Nothing Then
                If result.Pdu.ErrorStatus <> 0 Then
                Else
                    arrSNMP(1) = (result.Pdu.VbList(0).Value.ToString()) 'Серийный номер
                End If
            End If
            target.Close()
        Catch e1 As Exception
        End Try
    End Sub

arrSNMP(1) = String.Empty

       arrSNMP(1) = (result.Pdu.VbList(0).Value.ToString()) 'Серийный номер

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SNMPserial("ip")
    End Sub

 If pq.QueuePort.Name.StartsWith("192.168")

 If pq.QueuePort.Name.StartsWith("192.168.") Then '<-- переделать
                    'в списке есть не сетевые принтера, а придумывать нормальный отбор лень
                    SN = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.5.1.1.17.1")
 
                    Black_Toner = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.11.1.1.9.1.1")
                    Yellow_Toner = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.11.1.1.9.1.4")
                    Purple_Toner = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.11.1.1.9.1.3")
                    Blue_Toner = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.11.1.1.9.1.2")
 
                    Black_Cartrige = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.11.1.1.6.1.1")
                    Yellow_Cartrige = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.11.1.1.6.1.4")
                    Purple_Cartrige = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.11.1.1.6.1.3")
                    Blue_Cartrige = SNMPData(pq.QueuePort.Name, "1.3.6.1.2.1.43.11.1.1.6.1.2")
                End If

 Public Function SNMPData(ByVal ip As String, ByVal command As String) As String
        Dim Res As String = ""
        Try
            Dim community As New OctetString("public")
            Dim param As New AgentParameters(community) With {
                .Version = SnmpVersion.Ver1
            }
            Dim agent As New SnmpSharpNet.IpAddress(ip) 'IP address
            Dim target As New UdpTarget(CType(agent, Net.IPAddress), 161, 2000, 1)
            Dim pdu As New Pdu(PduType.Get)
            pdu.VbList.Add(command) 'не добавить сразу все в список, так как при ошибке не получить никаких данных
            Dim result As SnmpV1Packet = CType(target.Request(pdu, param), SnmpV1Packet)
            If result IsNot Nothing Then
                If result.Pdu.ErrorStatus <> 0 Then
                Else
                    Res = result.Pdu.VbList(0).Value.ToString
                End If
            End If
            target.Close()
            Return Res
        Catch ex As Exception
            Return "-"
        End Try
    End Function
 
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Black_Toner As String
        Black_Toner = SNMPData("Имя Принтера/Ip адрес", "1.3.6.1.2.1.43.11.1.1.9.1.1")
        MsgBox(Black_Toner)
    End Sub

MsgBox(pq.QueuePort.Name)

CheckForIllegalCrossThreadCalls = False

 Dim ipEntry As IPHostEntry = Dns.GetHostEntry("HostName")
        Dim ipAddress As IPAddress() = ipEntry.AddressList
        Dim i As Integer = 0
        MsgBox(ipAddress(i).ToString())