> > Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration where MacAddress is not null and IPEnabled = true") > Dim queryCollection As System.Management.ManagementObjectCollection = query.Get() > Dim mo As System.Management.ManagementObject > > For Each mo In queryCollection > Return mo("MacAddress").ToString > Exit For > Next > > >>