中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创]全自动设置机号、IP工具(绝对实用)
« [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] »
作者:
标题: [原创]全自动设置机号、IP工具(绝对实用) 取消高亮 | 上一主题 | 下一主题
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『楼 主』:  [原创]全自动设置机号、IP工具(绝对实用)

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

如果想要更完善的功能请看:
全自动设置机号、IP、安装冰点改进版(网吧版)
http://www.cn-dos.net/forum/view ... ghlight=&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 ]

   此帖被 +30 点积分       点击查看详情   
评分人:【 redtek 分数: +9  时间:2007-1-19 21:38
评分人:【 hsting 分数: +2  时间:2007-1-20 07:06
评分人:【 lxmxn 分数: +4  时间:2007-1-20 07:09
评分人:【 everest79 分数: +4  时间:2007-1-20 13:40
评分人:【 561808275 分数: +1  时间:2007-1-21 04:15
评分人:【 429499381 分数: +1  时间:2007-1-24 15:03
评分人:【 htysm 分数: +2  时间:2007-2-15 22:46
评分人:【 oilio 分数: +3  时间:2007-2-25 00:22
评分人:【 ran520 分数: +1  时间:2007-3-1 10:32
评分人:【 colorphoto 分数: +2  时间:2007-5-3 09:57
评分人:【 lzmuhioin 分数: +1  时间:2007-10-5 20:36


附件 1: 全自动设置机号、IP工具.rar (2007-1-19 17:40, 1.27 K, 下载附件所需积分 1 点 ,下载次数: 567)


κχυμγνξοθπρωψιαδλεηφβτζσ┬╀┾┳┞┯┰┱┣┲┳╂╁│├┟┭┠这是什么??这就是我的人生
2007-1-19 17:40
查看资料  发送邮件  发短消息 网志   编辑帖子
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 2 楼』:  

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

2007-1-19 17:43
查看资料  发送邮件  发短消息 网志   编辑帖子
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 3 楼』:  

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

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

2007-1-19 17:46
查看资料  发送邮件  发短消息 网志   编辑帖子
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 4 楼』:  

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

2007-1-19 17:51
查看资料  发送邮件  发短消息 网志   编辑帖子
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 5 楼』:  

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



κχυμγνξοθπρωψιαδλεηφβτζσ┬╀┾┳┞┯┰┱┣┲┳╂╁│├┟┭┠这是什么??这就是我的人生
2007-1-20 06:34
查看资料  发送邮件  发短消息 网志   编辑帖子
hsting
初级用户





积分 63
发帖 26
注册 2006-12-31
状态 离线
『第 6 楼』:  

顶上去,学习学习

2007-1-20 06:39
查看资料  发送邮件  发短消息 网志  OICQ (28556731)  编辑帖子
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 7 楼』:  


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


2007-1-20 07:10
查看资料  发送邮件  发短消息 网志   编辑帖子
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 8 楼』:  

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



κχυμγνξοθπρωψιαδλεηφβτζσ┬╀┾┳┞┯┰┱┣┲┳╂╁│├┟┭┠这是什么??这就是我的人生
2007-1-20 10:57
查看资料  发送邮件  发短消息 网志   编辑帖子
everest79
金牌会员

一叶枝头,万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 9 楼』:  



  Quote:
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跟掩码改过来了,网关要改两次才生效?

2007-1-20 13:40
查看资料  发短消息 网志   编辑帖子
everest79
金牌会员

一叶枝头,万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 10 楼』:  

还有楼主为什么不将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
...........

2007-1-20 13:43
查看资料  发短消息 网志   编辑帖子
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 11 楼』:  



  Quote:
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地址的时候不小心把其它地方给改了;最主要的是无论是谁,一看都会用,这是最主要的.呵呵

   此帖被 +6 点积分          点击查看详情   
评分人:【 czwlay 分数: +1  时间:2007-1-20 15:10
评分人:【 everest79 分数: +4  时间:2007-1-20 17:32
评分人:【 561808275 分数: +1  时间:2007-1-21 04:15




κχυμγνξοθπρωψιαδλεηφβτζσ┬╀┾┳┞┯┰┱┣┲┳╂╁│├┟┭┠这是什么??这就是我的人生
2007-1-20 14:29
查看资料  发送邮件  发短消息 网志   编辑帖子
vlq5299
初级用户





积分 136
发帖 59
注册 2006-6-2
状态 离线
『第 12 楼』:  

谢谢了

2007-1-20 23:25
查看资料  发送邮件  发短消息 网志   编辑帖子
561808275
新手上路





积分 6
发帖 3
注册 2007-1-21
状态 离线
『第 13 楼』:  

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

2007-1-21 04:49
查看资料  发送邮件  发短消息 网志   编辑帖子
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 14 楼』:  

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

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




κχυμγνξοθπρωψιαδλεηφβτζσ┬╀┾┳┞┯┰┱┣┲┳╂╁│├┟┭┠这是什么??这就是我的人生
2007-1-21 09:09
查看资料  发送邮件  发短消息 网志   编辑帖子
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 15 楼』:  

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

   此帖被 +1 点积分    点击查看详情   
评分人:【 分数: +1  时间:2009-9-18 06:47




κχυμγνξοθπρωψιαδλεηφβτζσ┬╀┾┳┞┯┰┱┣┲┳╂╁│├┟┭┠这是什么??这就是我的人生
2007-1-24 07:09
查看资料  发送邮件  发短消息 网志   编辑帖子
« [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: