Zjištění MAC adresy v Pascal/assembler/DOS programu pod XP

Ked nejdu DOS sluzby tak musis urobit Win32 aplikaciu (a nie 16bit DOS aplikaciu), t.j. musis pouzit iny prekladac (napr. visual studio express je zdarma, google). Mozes urobit konzolovu Win32 aplikaciu, ta sa sprava z hladiska pouzivatela vpodstate ako DOS aplikacia.

A pouzijes napr. WinAPI funkciu GetAdaptersInfo
http://msdn.microsoft.com/en-us/library/aa365917(V S.85).aspx
mas tam aj zdrojak prikladu, ten priklad je kompletny zdrojak konzolovej aplikacie.

P.S. aj Win32 aplikacie sa daju robit v pascali (delphi) alebo aj v assembleri (napr. vo VC++ cez _asm apod).

Jednou z moznosti je spustit nejakou systemovou utilitku, tu presmerovat do souboru a vysledek pak zpracovat.

Mnohem rozumnejsi by bylo pouzit Win32 aplikaci (klidne konzolovou bez oken), ktera by pouzivala standardni sluzby (API funkce) systemu.

Raději bych nerozumně zůstal u DOS aplikace.
Zaráží mě, že všechny ostatní funkce (komunikace se serverem Novell jako zjišťování jména uživatele, zařazení do skupin, datum a čas přihlášení) touto službou (vlastně sw přerušení 21h) fungují pořád.
Nemůžu ale najít popis té služby EEh (většinou seznamy končí někde u 57h), možná se pod XP musí jen něco upřesnit, nevím třeba už nemají implicitní síťovou kartu nebo tak.

Už jsem něco o té službě našel. Zdá se, že jde o zjišťování MAC prostřednictvím Novell Netware (zřejmě služba klienta). Žeby u XP ve windovsáckém klientovi Novellu nebyla podporována?

Uses Winsock;

Function SendARP (DestIp: DWORD; srcIP: DWORD; pMacAddr: pointer; PhyAddrLen: Pointer): DWORD;stdcall; external 'iphlpapi.dll';

Function getRemoteMacAdress (var address: String): Boolean;
var
  dwRemoteIP: DWORD;
  PhyAddrLen: Longword;
  pMacAddr : array [0..1] of Longword;
  temp: array [0..5] of byte;
  I: Byte;
begin
  Result := false;
  dwremoteIP := inet_addr (@address[1]);
  if dwremoteIP <> 0 then begin
    PhyAddrLen := 6;
    if SendARP (dwremoteIP, 0, @pMacAddr, @PhyAddrLen) = NO_ERROR then begin
      if (PhyAddrLen <> 0) and (pMacAddr[0] <> 0) then begin
         Move (pMacAddr, temp, 6);
         address := '';
         For I := 0 to 5 do address := address + inttohex (temp[i], 2)+'-';
         Delete (address, Length (address), 1);
         Result := true;
      end;
    end;
  end;
end;

Funguje pod Vista, preložené v Delphi2007

Tohle je pokud tomu dobře rozumím zjišťování MAC adresy síťovky jiného počítače podle zadané IP. Já potřebuju zjistit MAC adresu siťovky počítače na kterém to spouštím, IP adresu ani nemusí mít nastavenu.

Tak hlásím, že problém je vyřešen, použil jsem jinou službu: E3h, která funguje i pod XP. Vlastně obchází XP a dotazuje se na MAC mého PC přes Novell server.