动态改变DNS

来源： 作者： 出处：巧巧读书 2006-07-26 进入讨论组

• 关 键 词：
• windows 95
• windows nt
• server
• dns
• sip

　　例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用：
　　
　　SetTCPIPDNSAddresses(192.0.0.1 192.1.1.0) ;
　　
　　// 各地址之间用一个空格隔开
　　
　　1. SetTCPIPDNSAddresses 定义如下：
　　
　　procedure SetTCPIPDNSAddresses( sIPs : string );
　　
　　begin
　　
　　//
　　
　　// if using Windows NT
　　
　　//
　　
　　SaveStringToRegistry_LOCAL_MACHINE(
　　
　　SYSTEM\CurrentControlSet +
　　
　　\Services\Tcpip\Parameters,
　　
　　NameServer,
　　
　　sIPs );
　　
　　//
　　
　　// if using Windows 95
　　
　　//
　　
　　SaveStringToRegistry_LOCAL_MACHINE(
　　
　　SYSTEM\CurrentControlSet +
　　
　　\Services\VxD\MSTCP,
　　
　　NameServer,
　　
　　sIPs );
　　
　　end;
　　
　　2. 其中 SaveStringToRegistry_LOCAL_MACHINE 定义：
　　
　　uses Registry;
　　
　　procedure SaveStringToRegistry_LOCAL_MACHINE(
　　
　　sKey, sItem, sVal : string );
　　
　　var
　　
　　reg : TRegIniFile;
　　
　　begin
　　
　　reg := TRegIniFile.Create( );
　　
　　reg.RootKey := HKEY_LOCAL_MACHINE;
　　
　　reg.WriteString( sKey, sItem, sVal + #0 );
　　
　　reg.Free;
　　
　　end;保留地址 http://www.qqread.com/meetwindows/a950178041.html 更多内容请看DNS技术专题、DNS基础篇、DNS协议专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：局域网经典问题解答

较新的文章：DNS 设置方法