代码
Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfacesmessagebox.show(nics(0).GetPhysicalAddress.Tostring) '获得MAC地址msgbox(nics.length)