Faire le ping d'une machine avec vb.net

Version imprimable

14/11/2012, 15h18
INESBERR

Faire le ping d'une machine avec vb.net

Bonjour,
Ben voila je suis entrain de chercher comment avoir l adresse Ip et L'adresse MAC d'une machine , ce que j ai besoin c'est une fois cette machine brancher avec mon post sur mon application en vb.net l'adresse IP et son MAC s'affiche sur des textbox, ce que j ai trouvé sur les tuto ça ma po aidé puisque ça parle d'entrer le mac pour avoir l'IP ou IP d'un site ou entré un site sur textbox et avoir IP blabla , , je vx juste une machine brancher en local avec mon poste que je sache son IP et son MAC , je demande votre aides et vos propositions me seront chère .Merci

Salut,
.NET ne permet pas de connaitre ton adresse IP publique, alors moi ce que je te conseil de faire, c'est d'utiliser ce site http://www.monip.org/ et de lancer une requête qui récupèrera l'adresse et l'affichera.
Pour l'adresse MAC, j'ai trouvé ce code qui fonctionne chez moi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub ButtonRécupérerAdresses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRécupérerAdresses.Click, ButtonRécupérerAdresses.Click
        Dim Ip As String = System.Net.Dns.GetHostByName(Dns.GetHostName).AddressList.GetValue(0).ToString
        TextBoxAdresseMac.Text = GetMAC(Ip)
    End Sub
 
    Declare Function SendARP Lib "iphlpapi.dll" (
     ByVal DestIP As UInt32, ByVal SrcIP As UInt32, _
     ByVal pMacAddr As Byte(), ByRef PhyAddrLen As Integer) As Integer
 
    Public Shared Function GetMAC(ByVal StringIPAddress As String) As String
        Dim addr As IPAddress = IPAddress.Parse(StringIPAddress)
        Dim mac() As Byte = New Byte(6) {}
        Dim len As Integer = mac.Length
        SendARP(CType(addr.Address, UInt32), 0, mac, len)
        Dim macAddress As String = BitConverter.ToString(mac, 0, len)
        Return macAddress
 
    End Function

14/11/2012, 17h12
INESBERR

Rebonjour,

malheureusement ça fonctionne pas chez moi , cette function SENDARP au moment qu' on fait l appel ça me donne avertissement adresse as long est obsolète , je vous remerci quand même , j indique que j ai réussi d avoir l adresse IP , a l aide de cette dernière je veux avoir le Mac