全自动设置机号、IP工具(绝对实用) - 中国DOS联盟论坛

全自动设置机号、IP工具
哈哈，经过我半个月的学习，我的第一大作终于完成了！！！
放上来给网吧界的同事也来分享下，要是大家觉得好用的话，就给小弟加点分当鼓励下喽，嘻嘻:D

如果想要更完善的功能请看：
全自动设置机号、IP、安装冰点改进版（网吧版）
http://www.cn-dos.net/forum/viewthread.php?tid=26870&fpage=7&highlight=&page=2

自动改IP2.0版
http://www.cn-dos.net/forum/viewthread.php?tid=28621&fpage=2

全自动设置机号、IP工具3.0（完整版）
http://www.cn-dos.net/forum/viewthread.php?tid=32490&fpage=4

ip.bat

@set dbg=
@echo %dbg% off&setlocal enabledelayedexpansion
:: code by qasa copyright@qknet 2:16 2007-1-19
title 全自动设置机号、IP工具  作者:qasa
set no_=0
mode con cols=40 lines=10&color fc
for /f "tokens=12 delims= " %%i in ('ipconfig /all^|find /i "Physical Address"') do (
   set mac=%%i
   set mac=!mac:~0,-1!
   )
for /f "tokens=1-3 delims==|" %%j in (MAC.INI) do (
   set mac_=%%j
   set ip_=%%k
   set sm_=%%l
   if !mac! equ !mac_! (
      call :set_ !mac_! !ip_! !sm_!  
      set /a no_+=1
      )   
   )
 if "!no_!"=="0" (
   echo.&echo MAC.ini中没有此机的MAC地址，将发送到工作机上......
       echo %date% %time%新发现的MAC地址：>>NewMAC.ini&echo !mac! >>NewMAC.ini
   echo.&echo 已经发送到工作机! ! !
   )
start shutdown -r -t 40
echo.
set/p zz_=         按Q键退出关机状态:
if /i !zz_! equ q (start shutdown -a)
ping/n 5 127.1>nul
exit /b

:set_
echo %1 %2 %3
set yy_=%3
echo.&echo 正在为%yy_:~1,3%号设置IP、机号...... 请稍候
for /f "tokens=1-4 delims==|" %%e in (DNS.ini) do (
    set dns1_=%%e
    set dns2_=%%f
    set workgate_=%%g
    set zwym_=%%h
    )
for /l %%w in (1,1,2) do (
  netsh interface IP Set Address "本地连接" Static %2 %zwym_% %workgate_% 1 >nul
  )
netsh interface IP Set Dns "本地连接" static %dns1_% >nul
netsh interface ip add dns "本地连接"  %dns2_% >nul
REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL
REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL
REG ADD HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters /v "Hostname"    /t REG_SZ /d %3 /f >nul 2>NUL
REG ADD HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters /v "NV Hostname" /t REG_SZ /d %3 /f >nul 2>NUL
echo.&echo                设置完毕
goto :eof

MAC.ini

00-0A-EB-21-A7-EC=192.168.0.5|-005
00-E0-4C-8F-11-4A=192.168.0.6|-006
00-0A-EB-A0-1D-9A=192.168.0.7|-007
00-40-05-14-E7-C9=192.168.0.8|-008
00-0A-EB-A0-1C-7A=192.168.0.9|-009
00-0D-87-F2-03-50=192.168.0.10|-010
00-0D-87-F2-A3-5C=192.168.0.11|-011

DNS.ini

202.96.128.86=202.96.128.186|192.168.0.1|255.255.255.0

根据你实际的要求，修改MAC.ini 和DNS.ini就行.:P

[ Last edited by qasa on 2007-8-5 at 02:45 PM ]

echo %date% %time%新发现的MAC地址：>>NewMAC.ini&echo !mac! >>NewMAC.ini
NewMAC.ini可以改为 \\服务器地址\共享目录\NewMAC.ini

我要多谢下everest79兄和lxmxn兄的指点。

[ Last edited by qasa on 2007-1-19 at 06:26 PM ]

在测试的时候有个奇怪的地方就是
for /l %%w in (1,1,2) do (
netsh interface IP Set Address "本地连接" Static %2 %zwym_% %workgate_% 1 >nul
)
如果我不循环二次的话，网关要我连续运行程序二次才改。
这个得高手再指点下。

这么实用的东西怎么没人顶？？

顶上去，学习学习

　　为兄的这个原创感到高兴，加分~

呵呵，谢谢前辈对我劳动成果的肯定。

Originally posted by qasa at 2007-1-19 04:51 AM:
在测试的时候有个奇怪的地方就是
for /l %%w in (1,1,2) do (
netsh interface IP Set Address "本地连接" Static %2 %zwym_% %workgate_% 1 >nul
)
如果我不循环 ...

ip跟掩码改过来了，网关要改两次才生效？

还有楼主为什么不将dns.ini与mac.ini跟批处理放在一起呢，三个文件乱了点

::D=202.96.128.86=202.96.128.186|192.168.0.1|255.255.255.0
::M=00-0A-EB-21-A7-EC=192.168.0.5|-005
...........

Originally posted by everest79 at 2007-1-20 13:43:
还有楼主为什么不将dns.ini与mac.ini跟批处理放在一起呢，三个文件乱了点

::D=202.96.128.86=202.96.128.186|192.168.0.1|255.255.255.0
::M=00-0A-EB-21-A7-EC=192.168.0.5|-005 ...

这是为了通俗易懂，修改起来方便，避免修改MAC地址的时候不小心把其它地方给改了;最主要的是无论是谁，一看都会用，这是最主要的.呵呵

楼主真会为我们新手着想，不顶良心过不去~~~~~
这程序用在网吧真是大大批少了许多工作量，牛B

经调试，在改机名的时候，这二句语句可以删掉，不影操作

REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL
REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL

自己偏心顶一下，让有需要的人能看到本帖，嘻嘻

第1楼　qasa	发表于 2007-01-19 17:40
高级用户　发帖 311　积分 959　来自广东-LianJiang
[原创]全自动设置机号、IP工具(绝对实用) 全自动设置机号、IP工具哈哈，经过我半个月的学习，我的第一大作终于完成了！！！放上来给网吧界的同事也来分享下，要是大家觉得好用的话，就给小弟加点分当鼓励下喽，嘻嘻:D 如果想要更完善的功能请看：全自动设置机号、IP、安装冰点改进版（网吧版） http://www.cn-dos.net/forum/viewthread.php?tid=26870&fpage=7&highlight=&page=2 自动改IP2.0版 http://www.cn-dos.net/forum/viewthread.php?tid=28621&fpage=2 全自动设置机号、IP工具3.0（完整版） http://www.cn-dos.net/forum/viewthread.php?tid=32490&fpage=4 ip.bat @set dbg= @echo %dbg% off&setlocal enabledelayedexpansion :: code by qasa copyright@qknet 2:16 2007-1-19 title 全自动设置机号、IP工具作者:qasa set no_=0 mode con cols=40 lines=10&color fc for /f "tokens=12 delims= " %%i in ('ipconfig /all^\|find /i "Physical Address"') do ( set mac=%%i set mac=!mac:~0,-1! ) for /f "tokens=1-3 delims==\|" %%j in (MAC.INI) do ( set mac_=%%j set ip_=%%k set sm_=%%l if !mac! equ !mac_! ( call :set_ !mac_! !ip_! !sm_! set /a no_+=1 ) ) if "!no_!"=="0" ( echo.&echo MAC.ini中没有此机的MAC地址，将发送到工作机上...... echo %date% %time%新发现的MAC地址：>>NewMAC.ini&echo !mac! >>NewMAC.ini echo.&echo 已经发送到工作机! ! ! ) start shutdown -r -t 40 echo. set/p zz_= 按Q键退出关机状态: if /i !zz_! equ q (start shutdown -a) ping/n 5 127.1>nul exit /b :set_ echo %1 %2 %3 set yy_=%3 echo.&echo 正在为%yy_:~1,3%号设置IP、机号...... 请稍候 for /f "tokens=1-4 delims==\|" %%e in (DNS.ini) do ( set dns1_=%%e set dns2_=%%f set workgate_=%%g set zwym_=%%h ) for /l %%w in (1,1,2) do ( netsh interface IP Set Address "本地连接" Static %2 %zwym_% %workgate_% 1 >nul ) netsh interface IP Set Dns "本地连接" static %dns1_% >nul netsh interface ip add dns "本地连接" %dns2_% >nul REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL REG ADD HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters /v "Hostname" /t REG_SZ /d %3 /f >nul 2>NUL REG ADD HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters /v "NV Hostname" /t REG_SZ /d %3 /f >nul 2>NUL echo.&echo 设置完毕 goto :eof MAC.ini 00-0A-EB-21-A7-EC=192.168.0.5\|-005 00-E0-4C-8F-11-4A=192.168.0.6\|-006 00-0A-EB-A0-1D-9A=192.168.0.7\|-007 00-40-05-14-E7-C9=192.168.0.8\|-008 00-0A-EB-A0-1C-7A=192.168.0.9\|-009 00-0D-87-F2-03-50=192.168.0.10\|-010 00-0D-87-F2-A3-5C=192.168.0.11\|-011 DNS.ini 202.96.128.86=202.96.128.186\|192.168.0.1\|255.255.255.0 根据你实际的要求，修改MAC.ini 和DNS.ini就行.:P [ Last edited by qasa on 2007-8-5 at 02:45 PM ] 附件全自动设置机号、IP工具.rar (1.27 KiB)

第2楼　qasa	发表于 2007-01-19 17:43
高级用户　发帖 311　积分 959　来自广东-LianJiang
echo %date% %time%新发现的MAC地址：>>NewMAC.ini&echo !mac! >>NewMAC.ini NewMAC.ini可以改为 \\服务器地址\共享目录\NewMAC.ini

第3楼　qasa	发表于 2007-01-19 17:46
高级用户　发帖 311　积分 959　来自广东-LianJiang
我要多谢下everest79兄和lxmxn兄的指点。 [ Last edited by qasa on 2007-1-19 at 06:26 PM ]

第4楼　qasa	发表于 2007-01-19 17:51
高级用户　发帖 311　积分 959　来自广东-LianJiang
在测试的时候有个奇怪的地方就是 for /l %%w in (1,1,2) do ( netsh interface IP Set Address "本地连接" Static %2 %zwym_% %workgate_% 1 >nul ) 如果我不循环二次的话，网关要我连续运行程序二次才改。这个得高手再指点下。

第5楼　qasa	发表于 2007-01-20 06:34
高级用户　发帖 311　积分 959　来自广东-LianJiang
这么实用的东西怎么没人顶？？

第6楼　hsting	发表于 2007-01-20 06:39
初级用户　发帖 26　积分 63
顶上去，学习学习

第7楼　lxmxn	发表于 2007-01-20 07:10
版主　发帖 4,938　积分 11,386
为兄的这个原创感到高兴，加分~

第8楼　qasa	发表于 2007-01-20 10:57
高级用户　发帖 311　积分 959　来自广东-LianJiang
呵呵，谢谢前辈对我劳动成果的肯定。

第9楼　everest79	发表于 2007-01-20 13:40
金牌会员　发帖 1,127　积分 2,564
Originally posted by qasa at 2007-1-19 04:51 AM: 在测试的时候有个奇怪的地方就是 for /l %%w in (1,1,2) do ( netsh interface IP Set Address "本地连接" Static %2 %zwym_% %workgate_% 1 >nul ) 如果我不循环 ... ip跟掩码改过来了，网关要改两次才生效？

第10楼　everest79	发表于 2007-01-20 13:43
金牌会员　发帖 1,127　积分 2,564
还有楼主为什么不将dns.ini与mac.ini跟批处理放在一起呢，三个文件乱了点 ::D=202.96.128.86=202.96.128.186\|192.168.0.1\|255.255.255.0 ::M=00-0A-EB-21-A7-EC=192.168.0.5\|-005 ...........

第11楼　qasa	发表于 2007-01-20 14:29
高级用户　发帖 311　积分 959　来自广东-LianJiang
Originally posted by everest79 at 2007-1-20 13:43: 还有楼主为什么不将dns.ini与mac.ini跟批处理放在一起呢，三个文件乱了点 ::D=202.96.128.86=202.96.128.186\|192.168.0.1\|255.255.255.0 ::M=00-0A-EB-21-A7-EC=192.168.0.5\|-005 ... 这是为了通俗易懂，修改起来方便，避免修改MAC地址的时候不小心把其它地方给改了;最主要的是无论是谁，一看都会用，这是最主要的.呵呵

第12楼　vlq5299	发表于 2007-01-20 23:25
初级用户　发帖 59　积分 136
谢谢了

第13楼　561808275	发表于 2007-01-21 04:49
新手上路　发帖 3　积分 6
楼主真会为我们新手着想，不顶良心过不去~~~~~ 这程序用在网吧真是大大批少了许多工作量，牛B

第14楼　qasa	发表于 2007-01-21 09:09
高级用户　发帖 311　积分 959　来自广东-LianJiang
经调试，在改机名的时候，这二句语句可以删掉，不影操作 REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL REG ADD HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName /v "ComputerName" /t REG_SZ /d %3 /f >nul 2>NUL

第15楼　qasa	发表于 2007-01-24 07:09
高级用户　发帖 311　积分 959　来自广东-LianJiang
自己偏心顶一下，让有需要的人能看到本帖，嘻嘻