Как узнать Mac-адрес реального сетевого адаптера

[Ecosasha]

Для извлечения списка Mac-адресов используется известная функция. Она выводит список Mac-адресов реальных и виртуальных сетевых адаптеров. Но как понять, какой из них не от виртуальной машины или чего-то другого, а реальный, то есть используемый, например, в текущий момент сетевой адаптер?

function GetMACAddressOfNetwordDrives(var LstInfo:TStringList; var LstMAC:TStringList):boolean;
var
  TmpPointer, InterfaceInfo: PIP_ADAPTER_INFO;
  IP: PIP_ADDR_STRING;
  Len: ULONG;
  i:integer;
  st:string;
begin
  Result:=false;

  if GetAdaptersInfo(nil, Len) = ERROR_BUFFER_OVERFLOW then
  begin
    GetMem(InterfaceInfo, Len);
    if GetAdaptersInfo(InterfaceInfo, Len) = ERROR_SUCCESS then begin
      TmpPointer := InterfaceInfo;
      repeat
        st:='';
        for i:=0 to TmpPointer^.AddressLength-1 do
        begin
          st:=st+IntToHex(TmpPointer^.Address[i],2);
          if i<TmpPointer^.AddressLength-1 then st:=st+'-';
        end;
        LstInfo.Add(string(TmpPointer^.Description)); 
        LstMAC.Add(st); ///<-- Здесь все верно - MAC-адрес

//showmessage(string(TmpPointer^.AdapterName)+' '+string(TmpPointer^.Description));

      TmpPointer := TmpPointer.Next;
      until TmpPointer = nil;
    end;
    FreeMem(InterfaceInfo);
  end;

  Result:=True;
end;