VB SNMP_SET 实例：设置系统信息

Imports SnmpSharpNet
 
Module Module1
 
    Sub Main()
        ' Prepare target
        Dim target = New UdpTarget(New IpAddress("some-host"), 161, 1000, 0)
        ' Create a SET PDU
        Dim pdu = New Pdu(PduType.Set)
        ' Set sysLocation.0 to a new string
        pdu.VbList.Add(New Oid("1.3.6.1.2.1.1.6.0"), New OctetString("Test description"))
        ' Set value to a integer
        pdu.VbList.Add(New Oid("1.3.6.1.2.1.67.1.1.1.1.5.0"), New Integer32(500))
        ' Set value to a unsigned integer
        pdu.VbList.Add(New Oid("1.3.6.1.2.1.67.1.1.1.1.6.0"), New UInteger32(101))
        ' Set Agent security parameters
        Dim aparam = New AgentParameters(SnmpVersion.Ver2, New OctetString("private"))
        ' Response packet
        Dim response As SnmpV2Packet
        Try
            ' Send request and wait for response
            response = target.Request(pdu, aparam)
        Catch ex As Exception
            ' If exception happens, it will be returned here
            Console.WriteLine(String.Format("Exception: {0}", ex.Message))
            target.Close()
            Return
        End Try
        ' Make sure we received a response
        If response Is Nothing Then