1. 如何批量修改ip
批量安装的，root密码应该是一样的写expect脚本，程序挨个登陆修改吧，不过要先设计dhcp
ip和静态ip的绑定关系，写成变量导入执行
2. 网络刻隆之后，如何批量修改IP（IP要按顺序的）
使用 “网管批处理工具箱V1.5”（我编写的，若有什么疑问可以继续问）里面的生成批量设置ip、计算机名称来实现
下载地址http://www.vaenet.com/viewthread.php?tid=37
这个只是在服务端设置的话，可能不太好实现，因为你是多台机器一起开，然后那些机器可能还没有得到ip地址，当然，若是你局域网内有dhcp服务器，那么就可以安装一个凌波教学软件（我以前安装局域网的时候是这么做的），让一台电脑作为服务器，管理其他的电脑，然后将批处理生成的文件发送到每个电脑的开机启动项里面，放完后统一关闭重启就好了！这里为什么没有直接运行，是因为怕有些ip地址会冲突而导致无法设置！
3. 大量虚拟机，每个有独立IP.怎么可以批量修改IP
兔~~子IP ，连上就可以改代理了，然后点自己网站，
浏览五个页面以上，每个页面停留一分钟左右。
你如果需要改不同的IP地址，刷网站点击量，这个对你有很大帮助
4. 50分求：批量修改局域网内所有电脑的IP
使用VBS把 我做过一个以下是我做的:
'弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer=Msgbox("你是否要对你的机器的计算机名及IP进行改动?",vbYesNo," 机器名，IP，网关，掩码，DNS修改器")
If intAnswer=vbYes Then
set objShell=wscript.createObject("wscript.shell")
Set WshNetwork = CreateObject("WScript.Network")
computerName=InputBox("原主机名为: "&WshNetwork.ComputerName&" "&vbCr&vbCr&"默认按确定继续"&vbCr&vbCr&"计算机名:","计算机IP地址修改工具-果果",""&WshNetwork.ComputerName&"")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
' WScript.Echo IPConfig.IPAddress(i)
IPAddress=InputBox("原IP地址为:"&IPConfig.IPAddress(i)&""&vbCr&vbCr&"默认请按确定"&vbCr&vbCr&""&vbCr&vbCr&"IP地址:","IP地址修改工具-果果",""&IPConfig.IPAddress(i)&"")
Next
end if
next
NetMask=InputBox("请输入子网掩码地址："&vbCr&vbCr&" 255.255.255.0 开头"&vbCr&vbCr&"子网掩码地址:","IP地址修改工具-果果","255.255.255.0")
Gateway=InputBox("请输入网关地址："&vbCr&vbCr&" 默认网关为IP地址的第一个地址"&vbCr&vbCr&"网关地址:","IP地址修改工具-果果",""&IPAddress&"")
NameServer=InputBox("请输入DNS地址："&vbCr&vbCr&" 10.31.198.2 默认"&vbCr&vbCr&"DNS地址:","IP地址修改工具-果果","10.31.198.2")
'设置计算机名
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\ComputerName",computerName,"REG_SZ"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName\ComputerName",computerName,"REG_SZ"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\NV Hostname",computerName,"REG_SZ"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Hostname",computerName,"REG_SZ"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Control\ComputerName\ComputerName\ComputerName",computerName,"REG_SZ"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\Tcpip\Parameters\NV Hostname",computerName,"REG_SZ"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\Tcpip\Parameters\Hostname",computerName,"REG_SZ"
'设置IP地址
strIPAddress = Array(""&IPAddress&"") '修改后的ip
strSubnetMask = Array(""&NetMask&"") '子网掩码
strGateway = Array(""&Gateway&"") '网关
arrDNSServers = Array(""&NameServer&"")'DNS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter in colNetAdapters
sip=objNetAdapter.IPAddress
'strIPAddress = sip '保持原来的ip
strGatewayMetric = Array(1)
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS=objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
msgbox "你的计算机名为 "&computerName&""&vbCr&vbCr&"你的IP地址已经改成: "&IPAddress&""&vbCr&vbCr&"子网掩码地址已经改成: "&NetMask&""&vbCr&vbCr&"网关地址已经改成: "&Gateway&""&vbCr&vbCr&"DNS地址已经改成:"&NameServer&"",64,"IP地址修改工具-果果"
Else
WScript.Echo "你没有修改你的设置."
End If
exit for '只修改第一个网卡的设置
Next
Else
Msgbox "你选择了不设置，拜拜。",48," 机器名，IP，网关，掩码，DNS修改器"
End If
5. 网络克隆之后，如何批量修改IP（IP要按顺序的）
有那种软件了，不过前提是你有全部机子的MAC地址了，然后根据MAC地址改了！！！！
查看原帖>>
6. 求一个能批量修改IP和主机名的软件
http://bbs.txwm.com/thread-867208-1-1.html这里有你想要的。原理就是先收集网吧里所有的主机MAC地址（修改config.ini文件）设置MAC地址对应的IP地址，而主机名为PC加上主 机IP最后的数字！ 例： 有个主机MAC地址为 [00-E0-4D-6F-DD-10] 设置他的IP为 IP=192.168.1.12 而主机名为： PC012 使用方法： 做母盘时，把本软件和（config.ini文件）放入系统启动中就行了！ 设置方法： 修改 config.ini文件 (双击打开就行了) Config.ini文件内容如下: [Default]
Name=某某网吧 网吧名称
Mask=255.255.255.0 子网
Gateway=192.168.1.1 网关
DNS1=61.232.206.100 DNS主
DNS2=61.232.206.102 DNS从 [00-E0-4D-6E-FD-19] 1台主机MAC地址
ip=192.168.1.65 1台主机IP [00-E0-4D-6F-DD-10] 2台主机MAC地址
ip=192.168.1.60 2台主机IP [。。。。。。。。。。。] N台主机MAC地址
ip=。。。。。。。。。 N台主机IP 注意事项： 1、在制作母盘时，一定要先给“本地连接 ”一个IP地址（不能设置为自动获取IP地址！）乱设置都可以 （例： IP：10。0。0。1 子网： 255。255。255。0） 2、请不要修改“本地连接”的名字，默认最好！（默认情况下为“本地连接”+数字）
7. 如何批量修改IP和计算机名
我现在那些机子装好了，改好了IP和计算机名，我明天拿这个软件直接拷到那机子上去能否改动。
8. 有什么方法批量修改局域网内所有机器的IP地址
这个恐怕不好实现，因为每台机的IP地址不能相同，可能是顺序的。
只有一台一台的改来实现，这样也有好处啊，可能按机器的物理位置按顺序编排IP地址，方便管理。
如果每一台都要打开网络设置里去修改也比较慢，可以使用IP地址修改器这个小软件到每台机上执行一下就可以了
9. 我有一批服务器更改了网络环境，需要批量修改IP。现在需要写一个批量远程修改IP的批处理脚本。请问如何写
ChangeIP "192.168.1.2", "255.255.255.0", "192.168.1.1", "192.168.1.1", "192.168.2.1"
'Function ChangeIP (IP As String,NM As String,GW As String,MDNS As String,SDNS As String) As String
Function ChangeIP (IP,NM,GW,MDNS,SDNS) '其中IP,NM,GW,MDNS,SDNS为字符串类型
'返回值说明:返回一个设置的中文说明.
Dim strComputer,objWMIService,colNetAdapters,strIPAddress,strSubnetMask
Dim strGateway,strGatewaymetric,strDNS,objNetAdapter,errEnable,errGateways,errDNS
strComputer = "."
Set objWMIService = GetObject( "winmgmts:\\" & strComputer & "\root\cimv2" )
Set colNetAdapters = objWMIService.ExecQuery( "Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ")
strIPAddress = Array(IP) 'ip地址
strSubnetMask = Array(NM) '子网掩码
strGateway = Array(GW) '网关
strDNS = Array(MDNS,SDNS) '主DNS各备DNS
strGatewaymetric = Array(1)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
If errEnable = 0 And errGateways = 0 And errDNS = 0 Then
ChangeIP = "设置成功 "
Else
If errEnable = 0 Then
ChangeIP = "IP地址和子网掩码设置成功, "
Else
ChangeIP = "IP地址或子网掩码设置失败, "
End If
If errGateways = 0 Then
ChangeIP = ChangeIP & "默认网关设置成功, "
Else
ChangeIP = ChangeIP & "默认网关设置失败, "
End If
If errDNS = 0 Then
ChangeIP = ChangeIP & "DNS设置成功 "
Else
ChangeIP = ChangeIP & "DNS设置失败 "
End If
End If
Next
End Function