Merhaba,

Sub MACAdresi()
Dim strComputer As String
Dim objWMIService As Object
Dim colAdapters As Object
Dim objAdapter As Object

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objAdapter In colAdapters
        Text2.Text = objAdapter.MACAddress ' & vbCrLf
Next objAdapter
End Sub

Şu kodla normalde cihaz ethernet kablosu ile bağlıysa ethernet mac'i alıyor. Wifi bağlıysa onu alıyor.

Fakat benim haftalardır uğraşıp yapamadığım şey şu. Ben cihazdaki hem etherneti hemde wifinin mac'ini alabilmek istiyorum. Bunun bir çözümü olamaz mı arkadaşlar?