MAC Address 가져오기


    Private Function GetMacAddress()
        Dim mc As System.Management.ManagementClass
        Dim mo As System.Management.ManagementObject
        mc = New System.Management.ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As System.Management.ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                Return mo.Item("MacAddress").ToString()
            End If
        Next
        Return String.Empty
    End Function