دریافت آدرس فیزیکی کلاینت

        Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()

        Dim adapter As NetworkInterface

        Dim myMac As String = String.Empty

        For Each adapter In adapters

            Response.Write("<BR/>" & adapter.GetPhysicalAddress.ToString())

        Next adapter