- @cls
- @echo off
- @color 2f&@Title 计算机IP设置程序 v1.0
- @echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
- @echo ※请输入您要定义的计算机名称. ※
- @echo ※ ※
- @echo ※ (例:PC-01;User001;) ※
- @echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
- Set /p User=""
- @cls
- Set NetMask=255.255.255.0
- Set DNS1=61.153.177.196
- Set DNS2=61.153.177.197
- rem 如果您的DNS地址不是以上所示,请自行更改.
- Set Aidi=192.168
- IF Exist Name.ax Del Name.ax
- Find /i "%User%" ip.ax >>Name.ax
- For /f "skip=2 tokens=2 delims==\" %%A in (Name.ax) Do Set aidi3=%%A
- For /f "tokens=1-2 delims=:/" %%c in (ip.ax) do (
- @echo %%c|find /i "Gateway">nul&&Set Gateway=%%d
- @echo %%c|find /i "%User%">nul&&Goto :Gate
- )
- Goto :eof
- :Gate
- @echo %Gateway%>Temp.ax
- For /f "tokens=3 delims=./" %%e in (Temp.ax) do Set aidi2=%%e
- @ipconfig /all >ipconfig.ax
- @if exist name.pak del name.pak
- @find "Ethernet adapter" ipconfig.ax>>name.pak
- @for /f "skip=2 tokens=3,4 delims=: " %%A in (name.pak) do set Name=%%A %%B
- @cls
- @echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
- @echo ※您的计算机名称是 "%User%" ※
- @echo ※您的IP地址是 "%aidi%.%aidi2%.%aidi3%" ※
- @echo ※您的子网掩码是 "%NetMask%" ※
- @echo ※您的网关地址是 "%GateWay%" ※
- @echo ※您的DNS地址分配为 "%DNS1%,%DNS2%" ※
- @echo ※ 当前网卡: "%Name%" ※
- @echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
- @echo ※ 确认无误后请按任意键执行修改操作.否则请停止该程序. ※
- @pause >log.pak
- @echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
- @echo ※ ※
- @echo ※ 程序正在执行操作,请稍候....... ※
- @echo ※ ※
- @echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
- Reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d %User% /f >log.pak
- @netsh interface ip set address "%Name%" static %aidi%.%aidi2%.%aidi3% %NetMask% %Gateway% 1 >log.pak
- @netsh interface ip set dns "%Name%" static %DNS1% >log.pak
- @netsh interface ip add dns "%Name%" %DNS2% >log.pak
- @cls
- @echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
- @echo ※ 恭喜您!修改成功了. ※
- @echo ※ ※
- @echo ※ 该程序由韩和编写制作.您可以传播本程序,但请保留本版权信息! ※
- @echo ※ ※
- @echo ※ 按任意键退出程序 ※
- @echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
- @pause >log.pak
- @if exist name.pak del name.pak
- @if exist ipconfig.ax del ipconfig.ax
- @if exist Name.ax del Name.ax
- @if exist log.pak del log.pak
- @if exist temp.ax del temp.ax
韩和发表于: 2006-11-16 13:02 |
|