Dim ser As String
            Dim mo As ManagementObject
            Dim query As ManagementObjectSearcher
            Dim queryCollection As ManagementObjectCollection
            query = New _
    ManagementObjectSearcher("SELECT * FROM WIN32_NetworkAdapterConfiguration" & _
    "WHERE IPEnabled = 'TRUE'")
 
            queryCollection = query.Get()
            For Each mo In queryCollection
            Next
 
            ser = mo("MACAddress")