在WIN2000下如何动态改变DNS？(50分)

求助于各位DFW，在WIN2000下如何动态改变DNS？我知道在WIN98，WINNT下动态改变DNS，
在WIN98下主要是写HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/VxD/MSTCP
下的NAMESERVER，在WINNT下主要是写HKEY_LOCAL_MACHINE/System/CurrentControlSet/
Services/TcpIp/Parameters下的NAMESERVER，但是在WIN2000下DNS并没有储存在该子键下
页是在HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/TcpIp/Parameters/
{497291b0-9a58-412a-8b19-e16c162eb0a8)下，但对于每台机器这一窜子键是不同的值应如何处理？

下面是我处理的代码，但出了一个错误：Abstract Error.
procedure TForm1.BitBtn1Click(Sender: TObject);
var reg:Tregistry ;
listnumber:integer;
list:tstrings ;
begin
reg:=tregistry.Create;
list:=tstrings.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE ;
reg.OpenKey('/System/CurrentControlSet/Services/TcpIp/Parameters/Interfaces',true);
reg.GetKeyNames(list);
reg.CloseKey;
for listnumber:=0 to list.Count-1 do
begin
reg.OpenKey('/System/CurrentControlSet/Services/TcpIp/Parameters/Interfaces/'+list[
listnumber],true);
if reg.ValueExists('NameServer') then
begin
reg.WriteString('NameServer',DNSIP);
reg.CloseKey;
end;
end;
list.Free;
reg.Free;
end;

诚请各位高手赐教！如果沉得分少，可以开贴再加！