Mac Adresini Hücereye Yazmak

[polokomus]

Merhaba; Ekteki örnek dosyada PC deki wifi, lan bluetooth cihazlarının mac adreslerini bulabiliyorum. Fakat gelen mesajda çıkan verileri sırasıyla a1, a2, a3... hücrelerine yazdırmayı bir türlü beceremedim. Yardımcı olur musunuz?

Teşekkürler

 

[Ömer]

Merhaba,

Sub MAC()
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select MACAddress from Win32_NetworkAdapterConfiguration" _
        & " where IPEnabled=TRUE")
 
For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.MACAddress) Then
        [COLOR=red]sat = sat + 1
        Cells(sat, "a") = IPConfig.MACAddress
[/COLOR]    End If
Next
End Sub

Bu şekilde denermisiniz..

.

 

[polokomus]

Çok Teşekkürler Ömer Bey; İstediğim gibi olmuş.. Elinize sağlık;
Bir de a1+a2+a3 hücrelerine değilde Ör:a400 ve alt hücrelerine a401, a402 gibi nasıl yazdırılabilir?
Bir örnekle açıklayabilir misiniz?

Teşekkürler, iyi çalışmalar

 

[Ömer]

Rica ederim.

Sub MAC()
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select MACAddress from Win32_NetworkAdapterConfiguration" _
        & " where IPEnabled=TRUE")
[COLOR=blue]sat = 399[/COLOR]
For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.MACAddress) Then
        sat = sat + 1
        Cells(sat, "a") = IPConfig.MACAddress
    End If
Next
End Sub

Bu şekilde denermisiniz..

 

[polokomus]

Tekrar Merhaba Ömer Bey;

sat = sat + 1
Cells(sat + 6, "a") = IPConfig.MACAddress

Yaparak çözdüm. Tekrar elinize sağlık. Varolun...