全自动设置机号、IP工具3.0（完整版） - 中国DOS联盟论坛

Originally posted by pan163 at 2007-11-30 01:10 PM:
好东西，，，，有一个问题，MAC和IP地址是用什么软件或工具读出来呢？人工一个个改？？？

这个可以收集到


@Echo off
Title 收集你的机器的 计算机名.IP.MAC为刻盘自动改IP做准备by 彬 QQ43142691
For /f "tokens=16" %%a in ('ipconfig/all^|find /i "Host Name"') do (set PcName=%%a)
For /f "tokens=15" %%i in ('ipconfig^|find /i "ip address"') do (set ip=%%i)
For /f "tokens=12" %%b in ('ipconfig/all^| find /i "Physical Address"') do (set mac=%%b)
if not exist new.ini goto new
For /f "tokens=3" %%m in ('type new.ini^|find /i /n "%mac%"') do (set fm=%%m)
if not "%fm%"=="" exit
:ok
Echo.%PcName%	%ip%	%mac% >>new.ini
Exit
:new
Echo.**********开始收集咯*******>>new.ini
goto ok

或者这个也可以


@echo off
color 0a
call :getme "ip address" "ip"
call :getme "Physical Address" "mac"
call :getme "Default Gateway" "gateway"
goto begin
:getme
    for /f "tokens=2 delims=:" %%i in ('ipconfig /all^|findstr /i /c:%1') do if not "!%~2!" == "" set "%~2=%%i"
goto :eof
:begin
echo -%ip%-%mac%-%gateway%-
pause
exit

[ Last edited by qq43142691 on 2008-1-8 at 03:36 AM ]

第31楼　hzwts	发表于 2007-12-17 13:41
新手上路　发帖 2　积分 4
这要积分 10 点啊。。

第32楼　zhljldz	发表于 2007-12-27 17:37
新手上路　发帖 3　积分 6
晕，要积分，，哪不要玩完，，

第33楼　wangweihebtu	发表于 2007-12-28 15:35
初级用户　发帖 13　积分 27
下载了－对于我这样的常重装的人来说－好些东西

第34楼　aofunjaw	发表于 2007-12-31 20:00
新手上路　发帖 3　积分 6
謝謝分享~

第35楼　cityof93	发表于 2008-01-07 18:49
新手上路　发帖 3　积分 3
谢谢

第36楼　qq43142691	发表于 2008-01-08 03:35
中级用户　发帖 152　积分 326
Originally posted by pan163 at 2007-11-30 01:10 PM: 好东西，，，，有一个问题，MAC和IP地址是用什么软件或工具读出来呢？人工一个个改？？？这个可以收集到 @Echo off Title 收集你的机器的计算机名.IP.MAC为刻盘自动改IP做准备by 彬 QQ43142691 For /f "tokens=16" %%a in ('ipconfig/all^\|find /i "Host Name"') do (set PcName=%%a) For /f "tokens=15" %%i in ('ipconfig^\|find /i "ip address"') do (set ip=%%i) For /f "tokens=12" %%b in ('ipconfig/all^\| find /i "Physical Address"') do (set mac=%%b) if not exist new.ini goto new For /f "tokens=3" %%m in ('type new.ini^\|find /i /n "%mac%"') do (set fm=%%m) if not "%fm%"=="" exit :ok Echo.%PcName% %ip% %mac% >>new.ini Exit :new Echo.********开始收集咯****>>new.ini goto ok 或者这个也可以 @echo off color 0a call :getme "ip address" "ip" call :getme "Physical Address" "mac" call :getme "Default Gateway" "gateway" goto begin :getme for /f "tokens=2 delims=:" %%i in ('ipconfig /all^\|findstr /i /c:%1') do if not "!%~2!" == "" set "%~2=%%i" goto :eof :begin echo -%ip%-%mac%-%gateway%- pause exit [ Last edited by qq43142691 on 2008-1-8 at 03:36 AM* ]

第37楼　haiou327	发表于 2008-01-08 23:03
高级用户　发帖 348　积分 713
只要改计算机名就好！！！

第38楼　jention	发表于 2008-02-27 00:35
初级用户　发帖 23　积分 60
内部网络号没修改到吧？

第39楼　darkeden	发表于 2008-03-19 15:34
新手上路　发帖 4　积分 7
再回个就能下来

第40楼　80469370	发表于 2008-03-25 21:58
新手上路　发帖 3　积分 6
晕,要钱才可以下的

第41楼　wuyalang	发表于 2008-03-25 23:52
新手上路　发帖 4　积分 8
看了头都会晕……

第42楼　AhKang	发表于 2008-03-31 05:53
初级用户　发帖 21　积分 42
楼主太强了，不断支持中……

第43楼　AhKang	发表于 2008-03-31 05:54
初级用户　发帖 21　积分 42
想看看源代码，可是积分不够，该如何是好？

第44楼　AhKang	发表于 2008-03-31 05:55
初级用户　发帖 21　积分 42
抱歉！不小心弄错了。源代码本来就是公开了的，我是想看看压缩包里面的内容，但积分还差那么一点点儿……

第45楼　niao22	发表于 2008-03-31 23:11
新手上路　发帖 7　积分 14
无意中发现这个东东,学习一下