问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

网络IP 自动使用BAT脚本切换的问题。

发布网友 发布时间:2022-04-21 09:01

我来回答

1个回答

热心网友 时间:2023-06-27 06:17

做2个批处理吧! 一个用来修改0段位的IP 一个用来修改5段位的IP  

给你个批处理文件 你稍微修改下就能用!

@echo off
 title Alpha - IP地址修改工具 
MODE con: COLS=80 lines=20

rem IP地址列表

set lname=本地连接 2
rem 本地连接IP地址一 公司IP地址
set lAdd1=192.168.3.126
 set lmask1=255.255.252.0
 set lGat1=192.168.3.254
 set ldns11=202.96.199.133
 set ldns12=202.106.196.115
 rem 本地连接IP地址二 家庭IP地址
set lAdd2=192.168.0.115
 set lmask2=255.255.255.0
 set lGat2=192.168.0.1
 set ldns21=202.96.199.133
 set ldns22=202.106.196.115

set wname=无线网络连接
rem 无线连接IP地址一 公司IP地址
set wAdd1=%lAdd1%
 set wmask1=%lmask1%
 set wGat1=%lGat1%
 set wdns11=%ldns11%
 set wdns12=%ldns12%
 rem 无线连接IP地址二 家庭IP地址
set wAdd2=%lAdd2%
 set wmask2=%lmask2%
 set wGat2=%lGat2%
 set wdns21=%ldns21%
 set wdns22=%ldns21%


 :home
 cls
 @echo.
 @echo      Alpha - IP地址修改工具    ( KYT -- PanFu )
@echo.
 @echo           1:设置 %lname%
 @echo           2:设置 %wname%
 @echo.
 @echo 警告:WIN7系统必须 单击右键 [以管理员身份运行(A)] !
@echo.
 @echo.
 set shut="" 
 set /p shut="请输入 【<1> 或 <2> 或 <q>退出】 并按回车键 :" 
IF NOT "%shut%"=="" ( 
 if %shut% NEQ "" SET shut=%shut:~0,1% 
 ) else ( 
 set shut="") 
 if /i %shut%==1 goto locally
 if /i %shut%==2 goto wireless
 if /i %shut%==q exit
 goto home

:locally
 cls
 @echo.
 @echo      修改 %lname% IP地址      ( KYT -- PanFu )
@echo.
 @echo           1:设置 %lname% 自动获取IP地址
@echo           2:设置 %lname% IP地址为公司IP %lAdd1%
 @echo           3:设置 %lname% IP地址为专用IP %lAdd2%
 @echo.
 @echo.
 set shut="" 
 set /p shut="请输入 【<1> 或 <2> 或 <3> 或 <q>退出】 并按回车键 或者 按<回车键>返回主菜单 

:" 
IF NOT "%shut%"=="" ( 
 if %shut% NEQ "" SET shut=%shut:~0,1% 
 ) else ( 
 set shut="") 
 if /i %shut%==1 goto locallyone
 if /i %shut%==2 goto locallytwo
 if /i %shut%==3 goto locallythree
 if /i %shut%==q exit
 goto home

:wireless
 cls
 @echo.
 @echo      修改 %wname% IP地址      ( KYT -- PanFu )
@echo.
 @echo           1:设置 %wname% 自动获取IP地址
@echo           2:设置 %wname% IP地址为公司IP %wAdd1%
 @echo           3:设置 %wname% IP地址为专用IP %wAdd2%
 @echo.
 @echo.
 set shut="" 
 set /p shut="请输入 【<1> 或 <2> 或 <3> 或 <q>退出】 并按回车键 或者 按<回车键>返回主菜单 

:" 
IF NOT "%shut%"=="" ( 
 if %shut% NEQ "" SET shut=%shut:~0,1% 
 ) else ( 
 set shut="") 
 if /i %shut%==1 goto wirelessone
 if /i %shut%==2 goto wirelesstwo
 if /i %shut%==3 goto wirelessthree
 if /i %shut%==q exit
 goto home

rem  设置 本地网络连接 开始
:locallyone
 @echo.
 @echo 正在设置 %lname% IP地址 请稍后。。。
call :autolocall %lname% >nul
 @echo 设置 %lname% 自动获取IP地址成功!!
@echo.
 @echo.
 goto three

:locallytwo
 @echo.
 @echo 正在设置 %lname% IP地址 请稍后。。。
call :autowireless %wname% >nul
 cmd /c netsh interface ip set address name="%lname%" static %ladd1% %lmask1% %lGat1% >nul
 cmd /c netsh interface ip add dns name="%lname%" %ldns11% index=1 >nul
 cmd /c netsh interface ip add dns name="%lname%" %ldns12% index=2 >nul
 @echo 设置 %lname% IP地址成功!!!
@echo.
 @echo 当前IP地址:   %ladd1%
 @echo 当前子网掩码: %lmask1%
 @echo 当前默认网关: %lGat1%
 @echo 当前DNS1地址:%ldns11%
 @echo 当前DNS2地址:%ldns12%
 @echo.
 @echo.
 goto three

:locallythree
 @echo.
 @echo 正在设置 %lname% IP地址 请稍后。。。
call :autowireless %wname% >nul
 cmd /c netsh interface ip set address name="%lname%" static %ladd2% %lmask2% %lGat2% >nul
 cmd /c netsh interface ip add dns name="%lname%" addr=%ldns21% index=1 >nul
 cmd /c netsh interface ip add dns name="%lname%" addr=%ldns22% index=2 >nul
 @echo 设置 %lname% IP地址成功!!!
@echo.
 @echo 当前IP地址:   %ladd2%
 @echo 当前子网掩码: %lmask2%
 @echo 当前默认网关: %lGat2%
 @echo 当前DNS1地址:%ldns21%
 @echo 当前DNS2地址:%ldns22%
 @echo.
 @echo.
 goto three
 :: 设置 本地网络连接 结束

::  设置 无线网络连接 开始
:wirelessone
 @echo.
 @echo 正在设置 %wname% IP地址 请稍后。。。
call :autowireless %wname% >nul
 @echo 设置 %wname% 自动获取IP地址成功!!
@echo.
 @echo.
 goto three

:wirelesstwo
 @echo.
 @echo 正在设置 %wname% IP地址 请稍后。。。
call :autolocall %lname% >nul
 cmd /c netsh interface ip set address name="%wname%" static %wadd1% %wmask1% %wGat1% >nul
 cmd /c netsh interface ip add dns name="%wname%" %wdns11% index=1 >nul
 cmd /c netsh interface ip add dns name="%wname%" %wdns12% index=2 >nul
 @echo 设置 %wname% IP地址成功!!!
@echo.
 @echo 当前IP地址:   %wadd1%
 @echo 当前子网掩码: %wmask1%
 @echo 当前默认网关: %wGat1%
 @echo 当前DNS1地址:%wdns11%
 @echo 当前DNS2地址:%wdns12%
 @echo.
 @echo.
 goto three

:wirelessthree
 @echo.
 @echo 正在设置 %wname% IP地址 请稍后。。。
call :autolocall %lname% >nul
 cmd /c netsh interface ip set address name="%wname%" static %wadd2% %wmask2% %wGat2% >nul
 cmd /c netsh interface ip add dns name="%wname%" %wdns121% index=1 >nul
 cmd /c netsh interface ip add dns name="%wname%" %wdns122% index=2 >nul
 @echo 设置 %wname% IP地址成功!!!
@echo.
 @echo 当前IP地址:   %wadd2%
 @echo 当前子网掩码: %wmask2%
 @echo 当前默认网关: %wGat2%
 @echo 当前DNS1地址:%wdns21%
 @echo 当前DNS2地址:%wdns22%
 @echo.
 @echo.
 goto three
 :: 设置 无线网络连接 结束

:three
 ::pause >nul
 set shut="" 
 set /p shut="请输入 【<a>返回主菜单】 或者 按<其他键>退出:" 
IF NOT "%shut%"=="" ( 
 if %shut% NEQ "" SET shut=%shut:~0,1% 
 ) else ( 
 set shut="") 
 if /i %shut%==a goto home
 exit

:autolocall
 cmd /c netsh interface ip set address name="%lname%" static 0.0.0.0  0.0.0.0  0.0.0.0 >nul
 cmd /c netsh interface ip set address name="%lname%" source=dhcp >nul
 cmd /c netsh interface ip set dns name="%lname%" source=dhcp >nul
 ::@echo 设置 %lname% 自动获取IP地址成功!
goto :eof

:autowireless
 cmd /c netsh interface ip set address name="%wname%" static 0.0.0.0  0.0.0.0  0.0.0.0 >nul
 cmd /c netsh interface ip set address name="%wname%" source=dhcp >nul
 cmd /c netsh interface ip set dns name="%wname%" source=dhcp >nul
 ::@echo 设置 %wname% 自动获取IP地址成功!
goto :eof

上面的本地连接2 是你的本地连接的名字! IP地址修改下就行了!

把上面的代码 复制到新建文本里,然后改下后缀名! .bat就OK了

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
我小弟要当兵,这几天在等家访,我想问一下需要拿钱之类的吗?_百度知 ... 怎样治好气管炎 怎么治好气管炎 气管炎能彻底治好吗 分手后再遇见前男友是什么感受? 分手后与前任再相遇 指弹怎么练 用吉他练指弹有什么快速入门的办法 皖西学院新生住哪里 皖西学院的宿舍条件好吗? WIN10切换IP脚本使用后 提示。配置的 DNS 服务器不正确或不存在 如何设置指定ip和自动获取转换脚本 该如何把Win7/Vista/XP切换IP地址的批处理脚本 如何在脚本中使用代码手动更改ip地址 农行那个备用金怎么用 tlet是什么意思 如何知道华为手机是否被定位了 梅艳芳是因为什么原因去世的? vivox7安装云南移动客服端出现程序错误,反复删除安装,还是不能打开,求大神指点,要怎么才能重新 我备用金逾期了一个月已经还上了 花呗还能正常用吗? 备用金逾期还上,还能用吗 备用金愈期后还上还能用嘛? 农行信用卡七号还款日,六号还清了,随后可以刷卡消费吗 你好在吗亲,我想问你个事? 备用金已还,为什么不能再次使用 tlet是什么意思 备用金逾期五天了还了之后还能用吗? 备用金逾期六天还上了能再次取用吗? 信用卡备用金还完了还可以借吗晋商银行 备用金逾期再还,还完后还可以继续用备用金吗? 关于自动更换IP地址的脚本 脚本 修改ip 修改IP的脚本 IP切换批处理怎么写 求个自动修改切换IP的BAT文件 xp系统如何实现自动切换IP 一键自动更改本机IP地址BAT执行脚本 非常好用 路由器自动换ip vbs脚本怎么写 按键小精灵怎样编写换IP刷新网页脚本 如 何实现双击批处理自动切 换ip BAT批处理更改~ 快速切换IPv4&#47;IPv6 host的脚本 求一个自动换IP刷网页点击的免费软件 通过批处理或者其他脚本更改ip 若用键盘按键来关闭powerpoint可以按什么键 请写出关闭powerpoint2003演示文稿的四种方法?? 如何退出PPT 退出PowerPoint的操作方法有哪几中 powerpoint怎么关闭绘图 若用键盘按键来关闭powerpoint,可以按哪个键 PPT退出怎么做?