Simulateur nslookup (ping par wmi)

Télécharger le projet
Commenter

Description

Ce code simule la commande "nslookup" et permet de pinger une machine pour connaitre son adresse ip a partir de son nom.
Ce code utilise WMI et la bibliothèque System.Management de .NEt Framework 2
Bonne lecture !

Source / Exemple : 


Imports System.Management

Public Class Frm_nslookup

    Function Ping(ByVal address As String, Optional ByRef ip As String = "") As Boolean

        Dim ms As System.Management.ManagementScope
        Dim oq As System.Management.ObjectQuery
        Dim query As ManagementObjectSearcher
        Dim queryCollection As ManagementObjectCollection
        Dim pingResult As ManagementObject

        Dim stringMachineName As String = "."

        Try
            ms = New System.Management.ManagementScope("\\" + stringMachineName + "\root\cimv2")
            oq = New System.Management.ObjectQuery("SELECT * FROM Win32_PingStatus where Address = '" + address + "'")
            query = New ManagementObjectSearcher(ms, oq)
            queryCollection = query.Get()

            If queryCollection.Count = 0 Then
                Return False
            End If

            For Each pingResult In queryCollection
                If pingResult("StatusCode") = 0 Then
                    ip = pingResult("Protocoladdress")
                    Return True
                End If
            Next

        Catch ex As Exception
            MsgBox("Erreur dans l'appel WMI : " & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try

    End Function

    Private Sub bt_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_OK.Click

        Dim _address As String = ""
        Dim _ip As String = ""

        _address = Me.tbo_Addresse.Text

        If Ping(_address, _ip) Then
            Me.tbo_IP.Text = _ip
        Else
            MsgBox("Echec du ping",MsgBoxStyle.Information)
        End If

    End Sub
End Class

Conclusion :


C'est mon premier post alors j'attends vos avis
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.