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

cs_olfafoufa 17 Messages postés dimanche 2 mai 2010Date d'inscription 11 mai 2012 Dernière intervention - 1 mars 2012 à 12:26 - Dernière réponse : cs_olfafoufa 17 Messages postés dimanche 2 mai 2010Date d'inscription 11 mai 2012 Dernière intervention
- 2 mars 2012 à 14:37
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 .
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 1 mars 2012 à 14:00
1
Merci
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

Merci Renfield 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de Renfield
Meilleure réponse
cs_olfafoufa 17 Messages postés dimanche 2 mai 2010Date d'inscription 11 mai 2012 Dernière intervention - 1 mars 2012 à 20:24
1
Merci
Bns Renfield ,
je veux récupérer seulement l'adresse mac

Merci cs_olfafoufa 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de cs_olfafoufa
Meilleure réponse
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 2 mars 2012 à 07:27
1
Merci
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

Merci Renfield 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de Renfield
Meilleure réponse
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 2 mars 2012 à 07:52
1
Merci
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

Merci Renfield 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de Renfield
Meilleure réponse
cs_olfafoufa 17 Messages postés dimanche 2 mai 2010Date d'inscription 11 mai 2012 Dernière intervention - 2 mars 2012 à 14:37
1
Merci
merciiiii bcp Renfield pour votre aide :))))

Merci cs_olfafoufa 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de cs_olfafoufa

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.