中国DOS联盟

@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

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

202.96.128.86=202.96.128.186|192.168.0.1|255.255.255.0

### Fully Automatic Machine Number and IP Setting Tool
Haha, after half a month of study, my first big work is finally completed!!!
Put it up to share with colleagues in the internet café industry. If everyone thinks it's useful, give the little brother some points as an encouragement, hehehe :D

For more complete functions, please see:

http://www.cn-dos.net/forum/viewthread.php?tid=26870&fpage=7&highlight=&page=2

Automatic IP Change Version 2.0
http://www.cn-dos.net/forum/viewthread.php?tid=28621&fpage=2

Fully Automatic Machine Number and IP Setting Tool Version 3.0 (Full Version)
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 Fully Automatic Machine Number and IP Setting Tool  Author: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 There is no MAC address of this machine in MAC.ini, and it will be sent to the work machine......

       echo %date% %time% Newly discovered MAC address:>>NewMAC.ini&echo !mac! >>NewMAC.ini

   echo.&echo Has been sent to the work machine! ! !

   )

start shutdown -r -t 40

echo.

set/p zz_=         Press Q key to exit the shutdown state:

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 Is setting IP and machine number for %yy_:~1,3% number...... Please wait

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 "Local Area Connection" Static %2 %zwym_% %workgate_% 1 >nul

  )

netsh interface IP Set Dns "Local Area Connection" static %dns1_% >nul

netsh interface ip add dns "Local Area Connection"  %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                Setting completed

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

Just modify MAC.ini and DNS.ini according to your actual requirements. :P

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

echo %date% %time%Newly discovered MAC address:>>NewMAC.ini&echo !mac! >>NewMAC.ini
NewMAC.ini can be changed to \\Server address\Shared directory\NewMAC.ini

I would like to express my gratitude to brother everest79 and brother lxmxn for their guidance.

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

There is a strange thing during the test:

for /l %%w in (1,1,2) do (
netsh interface IP Set Address "Local Area Connection" Static %2 %zwym_% %workgate_% 1 >nul
)

If I don't loop twice, I need to run the program twice in a row to change the gateway. This needs to be guided by an expert.

Why isn't there anyone supporting such a practical thing??

Push it up, study it

I'm glad about this original work of yours, plus points~

Hehe, thank you, senior, for recognizing my hard work.

When testing, there is a strange thing. For the code:
for /l %%w in (1,1,2) do (
netsh interface IP Set Address "本地连接" Static %2 %zwym_% %workgate_% 1 >nul
)
If I don't loop...

The IP and mask are changed, but the gateway needs to be changed twice to take effect?

Why doesn't the LZ put dns.ini and mac.ini together with the batch file? The three files are a bit messy.

::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:
Why doesn't the LZ put dns.ini and mac.ini together with the batch file? The three files are a bit messy

::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 ...

This is for easy understanding and convenient modification, to avoid accidentally changing other parts when modifying the MAC address; the most important thing is that whoever sees it will know how to use it, which is the most important. Hehe

The LZ really thinks about newbies. I can't bear to not top it~~~~~
This program is really a great help in internet cafes, reducing a lot of work. Awesome

After debugging, when changing the computer name, these two lines of statements can be deleted without affecting the operation

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

I'll give it a self-promotion to help those in need see this post, hehee