如何用DELPHI来改变WIN2000 DNS服务嚣中一个正向对应区域中的一台主机IP地址 (100分)

  • 主题发起人 主题发起人 miniminimini
  • 开始时间 开始时间
M

miniminimini

Unregistered / Unconfirmed
GUEST, unregistred user!
各位高手:

在WIN2K DNS的服务中有一正向对应区域abc.com ,在这一区域中的有一主机 dg ,但dg
的IP地址是动态变化的.请问在服务嚣端如何实现程式自动更改其IP地址.
 
[:(]高手在哪!没人能回答这个问题吗?
 
好像是用DNS的com组件编程,具体不清楚!
十分关注!
 
任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址



例如,把 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;
 
to 飞来石
你的这段代码只是用来更改或是增添本机TCP/IP设定中的DNS的IP地址吧.
 
在系统system32/dns/xxx.com.dns 中记录了 A纪录及所有信息 更改对应的纪录IP就可以实现
但在更新后`~需要从新启动dns服务
 
借贵宝地一用, 可否? 我在一个局域网中, 如何可以知道主机的IP? 主机的系统用的是
W2K 的高级服务器版本. (注: 我指的IP是主机拨号上INTERNET 的IP)
 
后退
顶部