IP in registry

[julchen]

Hallo,
weiss jemand, wo in der Registry unter XP die IP gespeichert ist?
Viele Grüsse

[sirius]

Welche "die IP"? Also ich habe auf diesem rechner neben localhost, glaube, 4 weitere.
Und warum sollte diese in der Registry stehen?

[Luckie]

Finde deine IP raus und such nach ihr.

[nuclearping]

Zitat:

Zitat von sirius

Und warum sollte diese in der Registry stehen?

Windows speichert die IPs der Netzwerkadapter in der Registry.

Aber wie du schon gesagt hast: Da gibts mehr wie nur eine. :mrgreen:

[sirius]

Zitat:

Zitat von nuclearping

Zitat:

Zitat von sirius

Und warum sollte diese in der Registry stehen?

Windows speichert die IPs der Netzwerkadapter in der Registry.

Ok, wenn ich eine vorgebe. Aber was ist, wenn ich sie mir von DHCP liefern lasse?

[verwirrt]

Ich hab zwar Vista, aber hier finde ich meine per dhcp zugewiesene IP-Adresse:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\Tcpip\Parameters\Interfaces\...

Wert: DhcpIPAddress

Vielleicht ist das bei Windows XP auch so.

[Sunlight7]

Zitat:

Zitat von verwirrt

Vielleicht ist das bei Windows XP auch so.

Japp

[rollstuhlfahrer]

warum überhaupt in der Registry suchen? Du kannst diese doch prima auslesen, siehe hier. Das geht auch als noch so eingeschränkter User.

Bernhard

[toyoman]

Mit dieser Funktion kann die IP eines Adapters ausgelesen werden:

Delphi-Quellcode:

// IP Addressen auslesen
function getCurrentIPAddresses(Adapter:String):TStrings;
var
  Reg: TRegistry;
begin
    reg := TRegistry.Create;
    reg.Access :=KEY_READ;
    reg.rootkey:=HKEY_LOCAL_MACHINE;
    if reg.ValueExists('IPAddress') then
    begin
        ReadREG_MULTI_SZ(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\'+Adapter, 'IPAddress', result);
    end;
    reg.closekey;
    reg.free;
end;

Um den aktiven Netzwerkadapter zu bestimmen verwende ich jeweils diese Funktion:

Delphi-Quellcode:

// Ersten und aktiven Netzwerkadapter auslesen (Registry Adapter1)
function getFirstAdapter():String;
var
  Reg: TRegistry;
begin
    reg := TRegistry.Create;
    reg.Access :=KEY_READ;
    reg.rootkey:=HKEY_LOCAL_MACHINE;
    reg.OpenKey('SYSTEM\Setup\AnswerFileMap', false);
    if reg.ValueExists('Adapter1') then
    begin
         result:=reg.ReadString('Adapter1');
    end else
    begin
         result:='unknown';
    end;
end;

[Christian Seehase]

Moin Toyoman,

da solltest Du Dir mal lieber die IP-Helper-Funktionen anschauen, z.B., GetAdaptersInfo und GetPerAdapterInfo (bzw. GetAdaptersInfo, GetPerAdapterInfo).

Deine erste Funktion tut es, z.B., nicht, wenn das Adapter seine IP-Adresse per DHCP bekommen hat.
(Ich vermute mal, dass die hier gepostete Variante nicht genau die ist, die Du verwendest, denn so wie sie hier steht, wird sie bei jedem Aufruf eine AV produzieren. ;-). Ein Objekt als Rückgabewert ist auch nicht zu empfehlen, da man zu leicht die Übersicht verlieren kann, wann man dass wieder freigeben muss. Besser als Parameter übergeben.)


Was die zweite Funktion angeht:
Wenn der Rechner nicht unattended installiert wurde, existiert der Key AnswerFileMap, i.d.R., schon mal garnicht. ;-)

Seit Windows 2000 hat sich die Speicherung dieser Daten derart verkompliziert, dass man ohne die Systemfunktionen nur mit ziemlichen Schwierigkeiten an die gewünschten Daten kommen kann.