Kablolu kablosuz IP ve MAC tespit etme hk.

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?

"Where IPEnabled = True "

bu değeri kaldırarak dener misiniz?

bu projeme bir göz atın istiyorsanız (: Taiizor/MAChanger: MAChanger v1.7 (github.com)

çalışmıyor hata veriyor hocam

        Text2.Text = objAdapter.MACAddress ' & vbCrLf

kısmını

        Text2.Text += objAdapter.MACAddress ' & vbCrLf

yaparsanız devamlı üzerine yazmak yerine yanyana yazar, string düzenlemesini kendinize göre yapabilirsiniz.