DNS Server in Windows eintragen

[kingflo]

Hallo ich möchte gerne mit meinem Programm die DNS-Serveraddresse in den TCPIP Eigenschaften eintragen lassen.

Bei meinem Rechner bekomme ich das auch folgendermaßen hin:

Delphi-Quellcode:

var reg:TRegistry;

    ergebnis:string;
    newValue:String;
begin
  newValue:='145.253.2.171';
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey( '\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{016E2DD2-BF67-4CEE-976F-7354D79F3B60}', False); //Schlüssel öffnen
  ergebnis:= reg.ReadString('NameServer'); //Wert auslesen
  reg.WriteString('NameServer',newValue);
  reg.Free; //Freigeben
  ShowMessage('Von '+ergebnis+' geändert in '+newValue);

Allerdings funktioniert diese Methode nur bei meinem Rechner, wegen der GUID {016E2DD2-BF67-4CEE-976F-7354D79F3B60}, die ja bei jedem Rechner an der stelle anders ist. Diese bekomme ich auch leider nicht raus. Jetzt wollte ich mal fragen, ob vielleicht jemand ne andere Möglichkeit kennt, und mir vielleicht helfen kann.