Simple SNMP Get with VB

Senin yang cerah, seharian pusing mengikuti jejak predecessor, berakhir damai di blog

Good evening world, setelah berkelana di dunia maya dan berkutat translate dari c# ke vb beberapa lama, akhirnya selesai juga aplikasi 'Simple SNMP Get' yang dibuat menggunakan VB .NET. SNMP merupakan salah satu Internet Standard Protocol yang dapat digunakan untuk mengawasi (monitoring) peralatan yang terhubung di jaringan IP. Beberapa device yang mendukung SNMP misalnya router, switch,  printer, server, workstation, dll.

Ada 7 protokol yang didukung oleh SNMP, salah satunya yaitu 'GetRequest'. Aplikasi yang saya buat ini merupakan aplikasi sederhana menggunakan VB .NET yang menunjukkan bagaimana pemanfaatan protokol tersebut.

Berikut adalah tampilan dari form SNMPGet dari form design yang dibuat:

Dan berikut adalah listing program yang saya buat:

Imports SNMPDll

Public Class SNMPGet

    Private Sub Button_Get_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Get.Click

        'Lbl_Result.Text = TextBox_IP.Text

        Dim myMib As New Mib()

        myMib.loadDirectoryMib(Environment.GetFolderPath(Environment.SpecialFolder.System))

        Dim myAgent As New SNMPAgent("10.21.204.64", "public", "public")

        Dim myRequest As New SNMPObject("1.3.6.1.2.1.43.11.1.1.6.1.1", myMib)

        Dim sFullName As String

        Dim sValue As String

        Dim sType As String

        sFullName = "Full Name: " + myRequest.getFullName()

        sValue = "Value: " + myRequest.getSimpleValue(myAgent)

        sType = "Type: " + myRequest.getType().ToString

        Lbl_FullName.Text = sFullName

        Lbl_Value.Text = sValue

        Lbl_Type.Text = sType

    End Sub

End Class

Untuk Component File yang diperlukan pada program diatas (SNMPDll.dll) dapat di unduh di sini.