我也发个自动改IP工具 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

吹个水先~~~支持任意B类以下IP段的规则部署,支持最大64770个规则IP地址(这句好象抡的有点大了- -+,忘记find命令最大支持的搜索数了).其他的自己看吧- -+

主程序部分


setlocal EnableDelayedExpansion
:_interface
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "Physical Address"') do set mac=%%j
for /f "tokens=1" %%i in ('type mac.txt^|find /i "%mac:~-18%"') do set ip=%%i
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "mask"') do set mask=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "gateway"') do set gw=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "dns1"') do set dns1=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "dns2"') do set dns2=%%j

:_inspect1
if %ip%=="" (set err=无法从文件中获取与MAC地址相对应的IP地址,请检查mac.txt文件的完整性 && goto _error)

:_hostname
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "每段最大IP数"') do set dw=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "开始段位"') do set ks=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "excursion"') do set excursion=%%j
for /f "eol=# tokens=2,3* delims=." %%a in ('echo %ip%') do (set /a num=%%c+%%b*%dw%-%dw%*%ks%+%

excursion%)
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "prefix"') do set prefix=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "机号位数"') do set ws=%%j
set name=00000%num%
set name=!name:~-%ws%!
goto _setup

:_setup
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v 

ComputerName /t reg_sz /d %prefix%%name% /f
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t 

reg_sz /d %prefix%%name% /f 
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz 

/d %prefix%%name% /f 
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NwlnkIpx\Parameters" /v 

VirtualNetworkNumber /t reg_dword /d %num% /f
netsh interface ip set address name="本地连接" source=static addr=%ip% mask=%MASK%
netsh interface ip set address name="本地连接" gateway=%gw% gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=%dns1% register=PRIMARY
netsh interface ip add dns name="本地连接" addr=%DNS2% index=2

:_print
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "IP Address"') do set ip=%%j
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "Physical Address"') do set mac=%%j
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "Subnet Mask"') do set mask=%%j
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "Default Gateway"') do set gw=%%j

echo Tools Name: daker's ipconfig tool>%temp%\print.txt
echo Author: Daker>>%temp%\print.txt
echo Version:1.2>>%temp%\print.txt
echo tel:13991925859>>%temp%\print.txt
echo e-mail:daker@126.com>>%temp%\print.txt
echo ##########################>>%temp%\print.txt
echo hostname:sa-%name%>>%temp%\print.txt
echo ip:%ip%>>%temp%\print.txt
echo mac:%mac%>>%temp%\print.txt
echo ntemask:%mask%>>%temp%\print.txt
echo gateway:%gw%>>%temp%\print.txt
echo dns:%dns1%,%dns2%>>%temp%\print.txt
echo ##########################>>%temp%\print.txt
start %temp%\print.txt

:_delete
set ip=
set mac=
set gw=
set dns1=
set dns2=
set name=
set num=
set n3=
set excursion=
set prefix=
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "delete"') do set onff=%%j
if %onff%==y (reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v 

ipaddress /f)
del "%temp%"\*.bat /ah /q & exit

:_error
mshta vbscript:CreateObject("Wscript.Shell").popup("%err%      ",10,"错误提示",64)(window.close)

address.ini文件部分


#子网掩码
mask:255.255.255.0
#网关
gateway:192.168.0.1
#主DNS
dns1:218.30.19.40
#辅DNS
dns2:61.134.1.4
#每个使用段位的最大IP数量
每段最大IP数:254
#即192.168.X.100 X为0就写0,为100就写100
开始段位:0
#如sa-001 就为3 sa-0001就为4
机号位数:3
#机号与IP偏移值,此值不能为空，如无偏移请填写0。
excursion:-10
#机器名称前缀
prefix:sa-
#是否开机执行一次后删除自启动项目
delete:n

mac.txt的格式


192.168.0.1 00-00-00-00-00-00
192.168.0.2 11-11-11-11-11-11

只需要IP地址与MAC的对应关系即可。获取mac.txt的方法可以直接用nbtscan -r 192.168.0/24>mac.txt的方式获得

[ Last edited by daker on 2008-4-4 at 02:36 AM ]

第1楼　daker	发表于 2008-02-08 13:54
初级用户　发帖 17　积分 34
[原创]我也发个自动改IP工具吹个水先~~~支持任意B类以下IP段的规则部署,支持最大64770个规则IP地址(这句好象抡的有点大了- -+,忘记find命令最大支持的搜索数了).其他的自己看吧- -+ 主程序部分 setlocal EnableDelayedExpansion :_interface for /f "tokens=1* delims=:" %%i in ('ipconfig /all^\|find /i "Physical Address"') do set mac=%%j for /f "tokens=1" %%i in ('type mac.txt^\|find /i "%mac:~-18%"') do set ip=%%i for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "mask"') do set mask=%%j for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "gateway"') do set gw=%%j for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "dns1"') do set dns1=%%j for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "dns2"') do set dns2=%%j :_inspect1 if %ip%=="" (set err=无法从文件中获取与MAC地址相对应的IP地址,请检查mac.txt文件的完整性 && goto _error) :_hostname for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "每段最大IP数"') do set dw=%%j for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "开始段位"') do set ks=%%j for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "excursion"') do set excursion=%%j for /f "eol=# tokens=2,3* delims=." %%a in ('echo %ip%') do (set /a num=%%c+%%b%dw%-%dw%%ks%+% excursion%) for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "prefix"') do set prefix=%%j for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "机号位数"') do set ws=%%j set name=00000%num% set name=!name:~-%ws%! goto _setup :_setup reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %prefix%%name% /f reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %prefix%%name% /f reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %prefix%%name% /f reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NwlnkIpx\Parameters" /v VirtualNetworkNumber /t reg_dword /d %num% /f netsh interface ip set address name="本地连接" source=static addr=%ip% mask=%MASK% netsh interface ip set address name="本地连接" gateway=%gw% gwmetric=0 netsh interface ip set dns name="本地连接" source=static addr=%dns1% register=PRIMARY netsh interface ip add dns name="本地连接" addr=%DNS2% index=2 :_print for /f "tokens=1* delims=:" %%i in ('ipconfig /all^\|find /i "IP Address"') do set ip=%%j for /f "tokens=1* delims=:" %%i in ('ipconfig /all^\|find /i "Physical Address"') do set mac=%%j for /f "tokens=1* delims=:" %%i in ('ipconfig /all^\|find /i "Subnet Mask"') do set mask=%%j for /f "tokens=1* delims=:" %%i in ('ipconfig /all^\|find /i "Default Gateway"') do set gw=%%j echo Tools Name: daker's ipconfig tool>%temp%\print.txt echo Author: Daker>>%temp%\print.txt echo Version:1.2>>%temp%\print.txt echo tel:13991925859>>%temp%\print.txt echo e-mail:daker@126.com>>%temp%\print.txt echo ##########################>>%temp%\print.txt echo hostname:sa-%name%>>%temp%\print.txt echo ip:%ip%>>%temp%\print.txt echo mac:%mac%>>%temp%\print.txt echo ntemask:%mask%>>%temp%\print.txt echo gateway:%gw%>>%temp%\print.txt echo dns:%dns1%,%dns2%>>%temp%\print.txt echo ##########################>>%temp%\print.txt start %temp%\print.txt :_delete set ip= set mac= set gw= set dns1= set dns2= set name= set num= set n3= set excursion= set prefix= for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^\|find /i "delete"') do set onff=%%j if %onff%==y (reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v ipaddress /f) del "%temp%"\.bat /ah /q & exit :_error mshta vbscript:CreateObject("Wscript.Shell").popup("%err% ",10,"错误提示",64)(window.close) address.ini文件部分 #子网掩码 mask:255.255.255.0 #网关 gateway:192.168.0.1 #主DNS dns1:218.30.19.40 #辅DNS dns2:61.134.1.4 #每个使用段位的最大IP数量每段最大IP数:254 #即192.168.X.100 X为0就写0,为100就写100 开始段位:0 #如sa-001 就为3 sa-0001就为4 机号位数:3 #机号与IP偏移值,此值不能为空，如无偏移请填写0。 excursion:-10 #机器名称前缀 prefix:sa- #是否开机执行一次后删除自启动项目 delete:n mac.txt的格式 192.168.0.1 00-00-00-00-00-00 192.168.0.2 11-11-11-11-11-11 只需要IP地址与MAC的对应关系即可。获取mac.txt的方法可以直接用nbtscan -r 192.168.0/24>mac.txt的方式获得 [ Last edited by daker on 2008-4-4 at 02:36 AM* ]