Anzeigen der IPAdresse UND Name der Verbindung

[SaltJohn]

Hallo, mir geht es darum in einem Windows 2000 System für sämtliche Netwerkadapter die IP UND den Namen der Verbindung anzeigen zu lassen. Eine Funktion um die IP Adresse zeigen zu lassen habe ich hier im Forum schon gefunden und erfolgreich implemetiert. Jetzt gilt es noch zusätzlich zur IP-adresse den Adapternamen oder auch Adaptertyp anzeigen zu lassen.

Der Code für das Anzeigen der IP von MathiasSimmack hier im Forum

Delphi-Quellcode:

uses 
  WinSock; 

function GetLocalIPs: string; 
type 
  PPInAddr = ^PInAddr; 
var 
  wsadata  : TWSAData; 
  hostinfo : PHostEnt; 
  addr     : PPInAddr; 
begin 
  Result   := ''; 

  if(WSAStartUp(MAKEWORD(1,1),wsadata) = 0) then 
  try 
    hostinfo := gethostbyname(nil); 
    if(hostinfo <> nil) then begin 
      addr   := pointer(hostinfo^.h_addr_list); 

      while(addr^ <> nil) do begin 
        Result := Result + inet_ntoa(addr^^) + ^M^J; 
        inc(addr); 
      end; 
    end; 
  finally 
    WSACleanUp; 
  end; 
end;

http://www.delphipraxis.net/internal...ect.php?t=2902

Edit: Am besten wäre natürlich eine Methode wo man den jeweiligen LAN-Adapternamen eingeben kann und dann die jeweilige IP als Rückgabe bekommt.