Bilgisayarın Mac Adresini Öğrenmek  

Bir önceki makalede Mac adresleri ile ilgili bilgi verilmişti. Bu makalemizde kod yazarak mac adresini öğrenmeye çalışacağız.
Bilgisayarın mac adresini alabilmek için ilk önce yapmamız gereken; Project kısmından Add Reference den System.Management i
formumuza eklemek. Daha sonra aşağıdaki kodları formunuza yazmak. Aşağıdaki şekil i inceleyin.

Şekil 1

Imports System
Imports System.Management

Public Class Form1

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
GetMACAddress()
End Sub

Public Function GetMACAddress() As String
Dim mc As New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim MACAddress As String = [String].Empty
For Each mo As ManagementObject In moc
If MACAddress = [String].Empty Then

If CBool(mo("IPEnabled")) = True Then
MACAddress = mo("MacAddress").ToString()
TextBox5.Text = MACAddress
End If
End If
mo.Dispose()
Next
MACAddress = MACAddress.Replace(":", "")
Return MACAddress
End Function

End Class

Bir sonraki makalemizde görüşmek üzere...Bahadirsa