中国DOS联盟论坛 - Powered by Discuz! Board

标题: 修改IP批处理程序 [打印本页]

作者: yexiaomeng 时间: 2008-4-29 11:31 标题: 修改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

作者: abcd 时间: 2008-4-29 11:38
最好用code括起来。