Recupération d' adresse MAC à partir d'adresse IP [Résolu]

Signaler
Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
11 mai 2012
-
Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
11 mai 2012
-
salut tous le monde,
j'essaie avec ce code

Imports Microsoft.VisualBasic.Devices

Public Class Form1

Dim Computer As String
Dim montexte As String
Dim IPConfig As Object
Dim wscript As Object

Private Property IPConfigSet As Object

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dwLen As Long
Dim strString As String

On Error Resume Next
IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
If Err.Number <> 0 Then
montexte = " - non accessible -"
Else
For Each IPConfig In IPConfigSet
wscript.echo(" adresse MAC " & vbTab & " : " & IPConfig.MACAddress & vbCrLf & _
" adresse IP " & vbTab & " : " & IPConfig.IPAddress(0))
Next
TextBox1.Text = IPConfig.IPAddress(0)
TextBox2.Text = IPConfig.MACAddress
End If
End Sub
End Class


Imports Microsoft.VisualBasic.Devices

Module Module1
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Dim montexte As String

Private Property IPConfigSet As Object

Private Property Computer As String

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


End Module

Mais le résultat de ce code me donne une adresse IP :192.168.116.1 différente de celle de ma carte réseau .

5 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
te faudrait afficher le nom de l'interface concernée... l'ip affichée sort pas d nulle part...

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
11 mai 2012
2
Bns Renfield ,
je veux récupérer seulement l'adresse mac
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
Ce que j'en dit, c'est que ton code est plus du VB6 que du .NET...

que l'ip affichée n'est pas inventée ! c'est bel et bien celle d'une de tes cartes réseau (Wifi, rj45 ou autre)...

et qu'afficher le nom de celle ci te permttrait de savoir pouquoi l'IP te semble differente de l'ip attendue !

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
quand je parle de code non .Net, je t'invite a exploiter le
System.Net.NetworkInformation :

Imports System.Net.NetworkInformation

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each ni As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
            MessageBox.Show("Nom : " & ni.Name & Environment.NewLine & _
                            "IP : " & ni.GetIPProperties.UnicastAddresses(0).Address.ToString() & Environment.NewLine & _
                            "MAC : " & ni.GetPhysicalAddress.ToString())
        Next
    End Sub
End Class



Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
11 mai 2012
2
merciiiii bcp Renfield pour votre aide :))))