中国DOS联盟

This requires 10 points.

Oh, dizzy, need points,,, otherwise it's over,

Downloaded - for someone like me who reinstalls frequently - quite a few things

@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

Originally posted by pan163 at 2007-11-30 01:10 PM:
Good stuff,,, There is a question, what software or tool is used to read the MAC and IP address? Change them one by one manually???

This can be collected

@Echo off

Title Collect your machine's computer name.IP.MAC to prepare for auto-changing IP when burning discs by Bin 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.**********Start collecting*******>>new.ini

goto ok

Or this can also be used

@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 ]

Just change the computer name!

Has the internal network number not been modified?

Just reply again and you can get it down.

Oh, you have to pay to download it

It's making my head spin...

The building host is extremely powerful, continuously supporting...

I want to see the source code, but I don't have enough points. What should I do?

Sorry! I made a mistake by accident. The source code was originally public. I just wanted to see the content inside the compressed package, but I'm still a little short of points...

I accidentally discovered this thing, and I'll learn about it.