获取当前网卡并修改IP ( 积分: 200 )

使用 DELPHI 和 API
有什么控件可以获取主机所有网卡列表？
用什么方法可以更改IP地址？非常感谢

http://www.pconline.com.cn/pcedu/empolder/gj/vc/0508/acc/05-09-ip_1.txt
参考资料

使用 DELPHI 和 API
有什么控件可以获取主机所有网卡列表？
用什么方法可以更改IP地址？非常感谢

http://www.pconline.com.cn/pcedu/empolder/gj/vc/0508/acc/05-09-ip_1.txt
参考资料

用这个命令：
C:/>netsh interface ip set address 本地连接 static 10.0.0.9 255.0.0.0 10.0.0.1 1
--------------------------------------------
用法: set address [name=]<string>
[[source=]dhcp |
[source=] static [addr=]IP address [mask=]IP subnet mask]
[[gateway=]<IP address>|none [gwmetric=]integer]

参数:

标记 值
name - 接口名称。
source - 下列值之一:
dhcp: 对于指定接口，设置用 DHCP 配置 IP
地址。
static: 设置使用本地静态配置设置 IP
地址。

gateway - 下列值之一:
<IP address>: 您设置的 IP 地址的指定默认
网关。
none: 不设置默认网关。
gwmetric - 默认网关的跃点数。如果网关设置为 'none'，则
不应设置此字段。
只有在 'source' 为 'static' 时才设置下列选项:

addr - 指定接口的 IP 地址。
mask - 指定 IP 地址的子网掩码。

注释 : 用来将 IP 地址配置模式从 DHCP 模式改为 static，或从 static
模式改为 DHCP。用静态 IP 地址在接口上添加 IP 地址，或添加
默认网关。
示例 :

set address name="Local Area Connection" source=dhcp
set address local static 10.0.0.9 255.0.0.0 10.0.0.1 1

netsh 可以，但对于初级用户应该不会使用，我正在研究修改注册表的方法
先在注册表列出全部的网卡，然后再提示下一步的操作

我有个可以改IP的程序，一时找不到。
待会贴上来，或者你留个邮箱我
对于第一个问题，我也好想这样的控件

谢谢 gzwzj@21cn.com

邮件已发

希望对你有帮助

我做远程控制也需要修改远程客户机的ip，能不能也给我一份,谢谢
hs9206@gmail.com

;列举网卡 Adapters
[HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Adapters/{6D95124A-55F0-425A-8323-D7D644DFA4B8}]
[HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Adapters/{A6D46391-DB5B-4836-90F1-AF2D3C898932}]

;IP
[HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/{6D95124A-55F0-425A-8323-D7D644DFA4B8}]
"IPAddress"=hex(7):31,00,30,00,2e,00,32,00,2e,00,32,00,30,00,30,00,2e,00,31,00,/
39,00,00,00,00,00
"SubnetMask"=hex(7):32,00,35,00,35,00,2e,00,32,00,35,00,35,00,2e,00,30,00,2e,/
00,30,00,00,00,00,00
"DefaultGateway"=hex(7):00,00
"DefaultGatewayMetric"=hex(7):00,00
"NameServer"="10.2.0.3"

;网卡名称
[HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Network/{4D36E972-E325-11CE-BFC1-08002BE10318}/{6D95124A-55F0-425A-8323-D7D644DFA4B8}/Connection]
"Name"="本地连接 5"
;设备ID号
"PnpInstanceID"="PCI/VEN_10EC&DEV_8139&SUBSYS_813910EC&REV_10/4&1F4428AA&0&30F0"

;wins地址
[HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/NetBT/Parameters/Interfaces/Tcpip_{6D95124A-55F0-425A-8323-D7D644DFA4B8}]
"NameServerList"=hex(7):31,00,30,00,2e,00,32,00,2e,00,30,00,2e,00,33,00,00,00,/
00,00

我已经利用 delphi+注册表+ado+access+devcon.exe
完成了基本功能，但还有些 bug，迟啲改好就行了，谁要？
理论上支持 win2k 或以上