Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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
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
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
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 :
#WymOF27KHA.3504@TK2MSFTNGP05.phx.gbl...
Bonjour,
Peut-on grâce à une macrocommande avoir l'adresse IP et Mac d'un
ordinateur ?
Je vous remercie
PH Neutre
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
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
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