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
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