Option Explicit Dim oItem Dim sMACAddress Dim sIPAddress With GetObject("winmgmts:\\.\root\cimv2") For Each oItem in .ExecQuery( _ "SELECT MACAddress FROM Win32_NetworkAdapter " & _ "WHERE NetConnectionStatus=2 " & _ "AND AdapterTypeId=0 ") sMACAddress = oItem.MACAddress Next For Each oItem in .ExecQuery( _ "SELECT IPAddress FROM Win32_NetworkAdapterConfiguration " & _ "WHERE MACAddress='" & sMACAddress & "' ") If Not IsNull(oItem.IPAddress) Then sIPAddress = Join(oItem.IPAddress,", ") Exit For End If Next End With MsgBox sIPAddress
Option Explicit Dim oItem Dim sMACAddress Dim sIPAddress With GetObject("winmgmts:\\.\root\cimv2") For Each oItem in .ExecQuery( _ "SELECT MACAddress FROM Win32_NetworkAdapter " & _ "WHERE NetConnectionStatus=2 " & _ "AND AdapterTypeId=0 ") sMACAddress = oItem.MACAddress Next For Each oItem in .ExecQuery( _ "SELECT IPAddress FROM Win32_NetworkAdapterConfiguration " & _ "WHERE MACAddress='" & sMACAddress & "' ") sIPAddress = oItem.IPAddress(0) If Len(sIPAddress) Then Exit For End If Next End With MsgBox sIPAddress
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question