中国DOS联盟

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 修改IP批处理程序

yexiaomeng
新手上路

积分 10
发帖 4
注册 2008-4-29
状态离线

『楼主』: 修改IP批处理程序

本人出门在外比较多，老是修改IP是个很头疼的事，于是自己写了个批处理程序，本着共享和学习的态度拿出来和大家一起研究下。本人是菜鸟，各位高手见笑了。
以下是完整源代码

@rem 版本记录:
@rem 2008.4.27  基础版本V0.1完成  作者:叶小萌

@echo off
color 1A
Title [网络IP设置V0.1]
cls
echo.
echo 网络IP设置程序 V0.1    %date%%time%
echo.
@ipconfig /all > c:\ipconRt.txt

for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"Description" c:\ipconRt.txt') do (
  echo 网卡描述：%%k
  goto netaddress
)
:netaddress
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"IP Address" c:\ipconRt.txt') do (
  echo IP地址：%%k
  goto gateway
)
:gateway
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"Gateway" c:\ipconRt.txt') do (
  echo 网关地址：%%k
  goto mask
)
:mask
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"Mask" c:\ipconRt.txt') do (
  echo 子网掩码：%%k
  goto dns
)
:dns
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"DNS Servers" c:\ipconRt.txt') do (
  echo  DNS地址：%%k
  goto mac
)
:mac
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"Physical Address" c:\ipconRt.txt') do (
  echo 物理地址：%%k
  goto dispE
)
:dispE
echo.
del c:\ipconRt.txt

echo **********************
echo *    1)办公室    *
echo *    2)家庭    *
echo *    3)自动获取 *
echo *    4)手动设置 *
echo * Enter)退出    *
echo **********************
echo.

:START
set VAR=
set/p VAR=请选择网络[1,2,3,4,Enter]?:
if "%VAR%"=="1" goto office
if "%VAR%"=="2" goto home
if "%VAR%"=="3" goto auto
if "%VAR%"=="4" goto manul
if "%VAR%"==""  goto exit
goto end

:exit
echo.
rem @ipconfig
echo 保留当前配置。
goto end

ffice
echo.
echo 正在处理中，请稍候...
echo.
@netsh interface ip set address "本地连接" static 192.168.101.196 255.255.255.0 192.168.101.254 1 >NUL
@netsh interface ip set dns "本地连接" static 219.140.251.250 >NUL
goto end

:home
echo.
echo 正在处理中，请稍候...
echo.
@netsh interface ip set address "本地连接" static 218.199.24.17 255.255.255.0 218.199.24.2 1 >NUL
@netsh interface ip set dns "本地连接" static 202.112.20.131 >NUL
goto end

:auto
echo.
echo 正在处理中，请稍候...
echo.
@netsh interface ip set address "本地连接" dhcp >NUL
@netsh interface ip set dns "本地连接" dhcp >NUL
@echo 网络地址: 自动获取
goto end

:manul
echo.
set VAR1=
set/p VAR1=请输入IP地址:
echo.
if "%VAR1%"=="" goto setGATEWAY
echo 正在处理中，请稍候...
echo.
@netsh interface ip set address "本地连接" static addr=%VAR1% mask=255.255.255.0 >NUL
@echo IP地址: %VAR1%
@echo.

:setGATEWAY
set VAR2=
set/p VAR2=请输入网关地址:
echo.
if "%VAR2%"=="" goto setDNS
echo 正在处理中，请稍候...
echo.
@netsh interface ip set address "本地连接" static gateway=%VAR2% gwmetric=1 >NUL
@echo 网关地址: %VAR2%
@echo.

:setDNS
set VAR3=
set/p VAR3=请输入DNS地址:
echo.
if "%VAR3%"=="" goto START
echo 正在处理中，请稍候...
echo.
@netsh interface ip set dns "本地连接" static addr=%VAR3% register=PRIMARY >NUL
@echo DNS地址: %VAR3%
@echo.

:end
@echo.
@ipconfig /all > c:\ipconRt.txt

:netaddress
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"IP Address" c:\ipconRt.txt') do (
  echo IP地址：%%k
  goto gateway
)
:gateway
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"Gateway" c:\ipconRt.txt') do (
  echo 网关地址：%%k
  goto mask
)
:mask
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"Mask" c:\ipconRt.txt') do (
  echo 子网掩码：%%k
  goto dns
)
:dns
for /f "tokens=1,2* delims=:" %%i in ('findstr /NIC:"DNS Servers" c:\ipconRt.txt') do (
  echo  DNS地址：%%k
  goto dispE
)
:dispE
echo.
del c:\ipconRt.txt
echo 处理完成,谢谢使用！
echo.
pause

2008-4-29 11:31

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 2 楼』:

最好用code括起来。

2008-4-29 11:38

(470237592)

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

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

论坛跳转: