Gumbi90
Messages postés3Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention10 avril 2007
-
10 avril 2007 à 05:08
Gumbi90
Messages postés3Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention10 avril 2007
-
10 avril 2007 à 18:40
Bonjour,
J'ai besoin d'une fonction qui, quand je lui passse une adresse IP, me retourne l'adresse MAC de l'équipement. J'ai besoin du conde en VB2005. Et le mot magique, SVP.
J'ai besoin de cette fonction rapidement, c'important pour moi. Merci
J'ai d'autre ressources que je suis pret à partager en échange d'aide.
Gumbi90
Messages postés3Date d'inscriptiondimanche 20 août 2006StatutMembreDernière intervention10 avril 2007 10 avril 2007 à 12:05
Merci pour les pistes, lesquelles par contre j'avais dja exploré.
J'ai pas vraiment le temps de trier la masse d'information ou d'extraire/modifier à partir d'un code existant et j'ai pensé que qqun aurrais une fonction pure et simple qui marche bien.
Je vais attendre encore 24h je crois afin de voir si je trouve ici autrement, je vais me devoir utiliser RentAcoder.
Merci de votre attention. C'est la première fois que je demande quelque chose sur ce site et wow, trois message déjà, c'est bien et comme disent vos cousin du Québec,: Ca torche!
Merci et A+
Gumbi
RedMan, Voici. La MAC adresse ou l'adresse physique ou l'adresse de la carte réseau. Celle ci est composé de 12 caractères Hexa d'ont la première partie représente le ID du fabriquant et la deuxième, est le numéro de série assigné à la carte d'ont voici le format MM:MM:MM:SS:SS:SS
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 10 avril 2007 à 14:57
Bonjour à tous,
Exemple en vbs, à adapter pour vb.net, utilisant wbem et wmi.
Testé en réseau d'entreprise.
On Error Resume Next
Const WbemAuthenticationLevelPktPrivacy = 6
strCredentials = InputBox _
("Please enter the user name, a blank space, and then the password:", _
"Enter User Credentials")
If strCredentials = "" Then
Wscript.Quit
End If
arrCredentials = Split(strCredentials," ")
strUser = arrCredentials(0)
strPassword = arrCredentials(1)
strNamespace = "root\cimv2"
strComputer = InputBox _
("Please enter the name of the computer you want to connect to:", _
"Enter Computer Name", "yyy.xx.yyy.xx")
If strComputer = "" Then
Wscript.QUit
End If
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
(strComputer, strNamespace, strUser, strPassword)
' =====================================================================
' Instructions à effectuer sur le server distant' Set colItems objWMIService.ExecQuery _
("Select * From Win32_OperatingSystem")
For Each objItem in ColItemsDim colAdapters : Set colAdapters objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled True")
For Each objAdapter in colAdapters
IPdebut = LBound(objAdapter.IPAddress)
IPfin = UBound(objAdapter.IPAddress)
If (objAdapter.IPAddress(IPdebut) <> "") Then
adaptateur = objAdapter.Description
MsgBox objAdapter.Description &vbCrLf& objAdapter.MACAddress
addMAC = objAdapter.MACAddress
For i = IPdebut To IPfin
MsgBox objAdapter.IPAddress(i)
Next
End If
Next