Imports System.Management
Public Function GetSerial() As String
Dim mc As New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim mac As String = ""
Dim moc As ManagementObjectCollection = mc.GetInstances
For Each mo As ManagementObject In moc
If mo.Item("IPEnabled") Then
mac = mo.Item("MacAddress").ToString
End If
Next
mac = mac.Replace(":", "-")
Return mac
End Function
Use this code......:)