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