Adresse IP et Mac ?

Le
Pierre Henri
Bonjour,
Peut-on grâce à une macrocommande avoir l'adresse IP et Mac d'un
ordinateur ?
Je vous remercie
PH Neutre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22019161
Bonjour,

La procédure crée un fichier temporaire là : "C:test.txt"
attribué à la variable "Chemin".
Attention, si tu as déjà un fichier de ce nom, rebaptise-le !

'----------------------------------
Sub test()

Dim Line As String, T As Double
Dim Chemin As String, X As Integer
Dim Commande As String, Message As String

Chemin = "c:Test.txt"
Commande = "cmd.exe " & " /c IpConfig /All > " & Chemin
Shell Commande, 0

T = Timer + 1
Do While Timer <= T
Loop

Open Chemin For Input As #1
Do While EOF(1) = False
Input #1, Line
If InStr(1, Line, "adresse physique", vbTextCompare) > 0 Then
Message = Message & Line & vbCrLf
ElseIf InStr(1, Line, "adresse IPv4", vbTextCompare) > 0 Then
X = InStr(1, Line, "(", vbTextCompare)
Line = Left(Line, X - 1)
Message = Message & Line & vbCrLf
Exit Do
End If
Loop
Close #1
MsgBox Message
Kill Chemin
End Sub
'----------------------------------



"Pierre Henri" <"PH Neutre"> a écrit dans le message de groupe de discussion :
#
Bonjour,
Peut-on grâce à une macrocommande avoir l'adresse IP et Mac d'un
ordinateur ?
Je vous remercie
PH Neutre
Jacques93
Le #22019951
Bonjour Pierre Henri,

Avec WMI :

Dim strComputer As String
Dim objWMIService As Object
Dim objItem As Object, colItems As Object
Dim strIPAddress As String

Dim r As Integer

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" _
& strComputer & "rootCIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration", , 48)
r = 1
For Each objItem In colItems
If objItem.macaddress <> "" And Not IsNull(objItem.IPAddress) Then
Debug.Print "Description : " & objItem.Description
Cells(r, 1) = objItem.Description
strIPAddress = Join(objItem.IPAddress, ",")
strIPAddress = Left(strIPAddress, InStr(strIPAddress, ",") - 1)
Debug.Print "IPAddress : " & strIPAddress
Cells(r, 2) = strIPAddress
Debug.Print "MACAddress : " & objItem.macaddress
Cells(r, 3) = objItem.macaddress
Debug.Print
r = r + 1
End If
Next
Columns("A:D").Select
Selection.Columns.AutoFit

Plus d'information ici :


Pierre Henri a écrit :
Bonjour,
Peut-on grâce à une macrocommande avoir l'adresse IP et Mac d'un
ordinateur ?
Je vous remercie
PH Neutre




--

Cordialement,

Jacques.
Pierre Henri
Le #22028011
Bonsoir,
Cela fonctionne parfaitement...
Très bonne soirée
PH Neutre

Jacques93 a écrit :
Bonjour Pierre Henri,

Avec WMI :

Dim strComputer As String
Dim objWMIService As Object
Dim objItem As Object, colItems As Object
Dim strIPAddress As String

Dim r As Integer

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" _
& strComputer & "rootCIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration", , 48)
r = 1
For Each objItem In colItems
If objItem.macaddress <> "" And Not IsNull(objItem.IPAddress) Then
Debug.Print "Description : " & objItem.Description
Cells(r, 1) = objItem.Description
strIPAddress = Join(objItem.IPAddress, ",")
strIPAddress = Left(strIPAddress, InStr(strIPAddress, ",") - 1)
Debug.Print "IPAddress : " & strIPAddress
Cells(r, 2) = strIPAddress
Debug.Print "MACAddress : " & objItem.macaddress
Cells(r, 3) = objItem.macaddress
Debug.Print
r = r + 1
End If
Next
Columns("A:D").Select
Selection.Columns.AutoFit

Plus d'information ici :


Pierre Henri a écrit :
Bonjour,
Peut-on grâce à une macrocommande avoir l'adresse IP et Mac d'un
ordinateur ?
Je vous remercie
PH Neutre




Publicité
Poster une réponse
Anonyme