Dari Aknutman

Selamat Datang semoga layanan kami memberikan informasi yang anda cari. (Dan mohon comment-nya :-D)

Monday, September 3, 2012

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.