自动切换内外网IP_DNS批处理 源码02
用批处理修改IP和DNS
用批处理修改IP和DNS1、这个是用于自动分配IP及没有指定DNS情况的：@echo offclscolor 0AEcho******************************************************************* ************Echo 正在修改IP地址和DNS服务器地址,请耐心等待…………Echo******************************************************************* ************netsh interface ip set address name="本地连接" source=dhcp netsh interface ip delete dns "本地连接" allipconfig /flushdnsipconfig /allEcho******************************************************************* ************Echo OK！！已修改成功！请按任意键继续…………Echo 谢谢您的使用！Echo******************************************************************* ************Pause复制上面代码到记事本，保存为Auto IP Address.bat,双击运行，即可！（注意保存的文件一定是.bat的批处理）2、这个是用于指定IP及指定DNS情况的：@echo offclscolor 0AEcho******************************************************************* ************Echo 正在修改IP地址和DNS服务器地址,请耐心等待…………Echo******************************************************************* ************cmd /c netsh interface ip set address name="本地连接" source=static addr=192.168.0.100 mask=255.255.255.0 gateway=192.168.0.1 gwmetric=0cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.102.224.68 cmd /c netsh interface ip add dns name="本地连接" addr=202.102.227.68 index=2ipconfig /allEcho******************************************************************* ************Echo OK！！已修改成功！请按任意键继续…………Echo 谢谢您的使用！Echo******************************************************************* ************Pause复制上面代码到记事本，保存为Set IP Address.bat,双击运行，即可！注意：蓝色为可以修改的IP其它都不用说了吧。
修改IP地址更换内外网的批处理命令
修改IP地址更换内外网的批处理命令更换内外网手动更改ip地址是不是觉得很麻烦？我刚开始的时候也是觉得这种方法太二了，于是google了一下写了一个批处理命令，感觉挺不错的。
修改IP地址更换内外网的批处理命令更换内网IP.bat@echo offecho -echo 请稍等...echo -netsh -f D:\内网IP.txtecho -echo 更改内网IP成功echo -pause更换外网IP.bat@echo offecho -echo 请稍等...echo -netsh -f D:\外网IP.txtecho -echo 更换外网IP成功echo -pause以上是批处理文件，用txt编辑后另存为.bat文件即可。
内网IP.txt# ----------------------------------# 接口IP 配置# ----------------------------------pushd interface ip# "本地连接" 的接口IP 配置set address name="本地连接" source=static addr=0.0.0.0 mask=255.255.255.0set address name="本地连接" gateway=0.0.0.0 gwmetric=0set dns name="本地连接" source=static addr=none register=PRIMARYset wins name="本地连接" source=static addr=nonepopd# 接口IP 配置结束外网IP.txt# ----------------------------------# 接口IP 配置# ----------------------------------pushd interface ip# "本地连接" 的接口IP 配置set address name="本地连接" source=static addr=0.0.0.0 mask=255.255.255.0set address name="本地连接" gateway=0.0.0.0 gwmetric=0set dns name="本地连接" source=static addr=202.102.128.68 register=PRIMARYadd dns name="本地连接" addr=202.102.152.3 index=2set wins name="本地连接" source=static addr=nonepopd# 接口IP 配置结束把0.0.0.0改成你实际的内外网IP地址即可。
通过BAT快速修改IP设置
Powered by walkerliker通过批处理的方式快速修改网络适配器的IP设置一、将IP改为固定值如果需要将网络适配器中的IP和DNS的设置改为固定值，将下面双划线之间的部分复制到文本文件中，保存，然后将文本文件的后缀名改为.bat。
需要执行修改的时候，双击这个bat文件就可以了。
@echo offecho 正在设置ip,子网,请稍候......rem "无线网络连接"为网卡名称，可在网络连接中查询，如"无线网络连接"netsh interface ip set address name="无线网络连接" source=static addr=192.168.0.218 mask=255.255.255.0 gateway=192.168.0.1 gwmetric=1echo 正在设置DNS,请稍候.....netsh int ip set dns name="无线网络连接" source=static addr=202.102.192.68netsh int ip add dns name="无线网络连接" addr=202.102.199.68 index=2echo 设置完毕!echo 设置为公司的IP设置！需要把这几个字替换掉即可。
上面的五个地址(包括IP地址、子网掩码、默认网关、DNS、备用DNS的参数根据需要自行修改。
)二、将IP设置改为自动获取如果需要将IP设置改回为自动获取，同样的方法，将下面双划线之间的复制到文本文件中，然后改为bat文件，双击执行即可。
@echo offnetsh interface ip set address "无线网络连接" dhcpnetsh interface ip set dns "无线网络连接" dhcpecho 无线网络连接改为自动获取注意：以上内容整理自网络，经过修改和试验可以正常使用。
win7自动更改设置IP地址脚本(修改拓展名为bat即可使用)
@echo offclscolor 0Aecho IP地址更改小工具set IP=192.168.1.2set MASK=255.255.255.0set GA TEW AY=192.168.1.1set NAME="无线网络连接"echo.echo 自动更改IP请按1echo.echo 手动更改IP请按2echo.echo 恢复自动获取请按3set /p KEY= [您的选择是：]if %KEY% == 1 goto ONEif %KEY% == 2 goto TWOif %KEY% == 3 goto THREE:TWOECHO 您选择了手工修改设置。
ECHO.echo 默认IP地址是%IP%，回车输入默认地址set /p IP= [请输入IP地址:]echo.echo 默认MASK是%MASK%，回车输入默认值set /p MASK= [请输入子网掩码地址:]echo.echo 默认GA TEWAY是%GA TEWAY%，回车输入默认值set /p GA TEWAY= [请输入网关地址:]echo.:ONEecho 正在自动更改IP......netsh interface ip set address %NAME% static %IP% %MASK% %GA TEWAY% netsh interface ip add dns %NAME% 202.102.152.3echo IP地址/子网掩码/网关设置完成pause:THREEecho 正在改为自动获取....netsh interface ip set address %NAME% source=dhcp netsh interface ip set dns %NAME% source=dhcp pause。
批处理、VBS实现自动设置IP、默认网关、DNS、WINS、IE代理
批处理、VBS实现自动设置IP、默认网关、DNS、WINS、IE代理－以“大连”“沈阳”为例一、IE代理.bat@echo offtitle 自动设置代理服务器echo 自动设置代理服务器rem echo 正在清空代理服务器设置……remreg add"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0 /fremreg add"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "" /fremreg add"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d 0 /frem echo 代理服务器设置已经清空echo 正在设置代理服务器……reg add"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /freg add"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "10.15.0.2:3128" /freg add"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d"10.*.*.*;192.168.*.*;<local>" /f或者用下面的方法：clscolor 1f@echo 清空代理设置@echo Windows Registry Editor Version 5.00>>1.reg@echo[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersi on\Internet Settings]>>1.reg@echo "ProxyEnable"=dword:00000000>>1.reg@echo "ProxyServer"="">>1.reg@echo "ProxyOverride"="">>1.regregedit /s 1.regdel 1.reg@echo 设置代理@echo Windows Registry Editor Version 5.00>>1.reg@echo[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersi on\Internet Settings]>>1.reg@echo "ProxyEnable"=dword:00000001>>1.reg@echo "ProxyServer"="10.15.0.2:8080">>1.reg@echo"ProxyOverride"="10.*.*.*;192.168.*.*;<local>">>1.reg regedit /s 1.regdel 1.reg二、以上配合结合，放在一个文件里，可以这样写：网络综合配置.bat@echo offcolor 1ftitle "网卡&IE代理设置批处理"echo 实现功能包括切换大连和沈阳网络配置,设置IE代理.goto 51job:51jobecho.echo 请选择: 1:大连,2:沈阳,3:ADSLset /p choice=请输入相应数字后回车:if /i "%choice%" == "1" gotodlnetif /i "%choice%" == "2" gotosynetif /i "%choice%" == "3" gotoadslgoto 51job:adslclscolor 1fnetsh interface ip set address name="本地连接" source=dhcp netsh interface ip set dns name="本地连接" source=dhcpclsgotonoproxy:noproxy@echo Windows Registry Editor Version 5.00>>1.reg@echo[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersi on\Internet Settings]>>1.reg@echo "ProxyEnable"=dword:00000000>>1.reg@echo "ProxyServer"="">>1.reg@echo "ProxyOverride"="">>1.regregedit /s 1.regdel 1.reggoto exit:dlnetclscolor 1fecho.set /p choice=输入" N "后回车跳过网卡设置, 直接回车继续网卡设置:if /i "%choice%" == "N" goto proxyclsecho 开始设置大连网络地址!echo 正在设置大连IP ,请稍等……netsh interface ip set address name="本地连接" source=static addr=10.15.100.86 mask=255.255.0.0echo 正在设置大连网关,请稍等……netsh interface ip set address name="本地连接"gateway=10.15.0.253 gwmetric=1echo 正在设置大连主DNS ,请稍等……netsh interface ip set dns name="本地连接" source=staticaddr=10.15.0.1 register=PRIMARYecho 正在设置大连备用DNS ,请稍等……netsh interface ip add dns name="本地连接" addr=10.100.1.2 index=2echo 正在设置大连主WINS ,请稍等……netsh interface ip set wins name="本地连接" source=staticaddr=10.15.0.1echo 正在设置大连备用WINS ,请稍等……netsh interface ip add wins name="本地连接" addr=10.100.1.2 index=2echo 设置完成!echo 正在刷新设置……ipconfig /flushdnsecho 显示新的设置：ipconfig /allgotodlproxy:dlproxyclscolor 1f@echo Windows Registry Editor Version 5.00>>1.reg@echo[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersi on\Internet Settings]>>1.reg@echo "ProxyEnable"=dword:00000001>>1.reg@echo "ProxyServer"="10.15.0.2:8080">>1.reg@echo"ProxyOverride"="10.*.*.*;192.168.*.*;<local>">>1.reg regedit /s 1.regdel 1.regecho 正在关闭浏览器：taskkill /f /t /im IEXPLORE.exeecho 正在开启浏览器"C:\Program Files\Internet Explorer\IEXPLORE.EXE"goto exit:synetclscolor 1fecho.set /p choice=输入" N "后回车跳过网卡设置, 直接回车继续网卡设置:if /i "%choice%" == "N" goto proxyclsecho 开始设置沈阳网络地址!echo 正在设置沈阳IP ,请稍等……netsh interface ip set address name="本地连接" source=static addr=10.16.100.86 mask=255.255.0.0echo 正在设置沈阳网关,请稍等……netsh interface ip set address name="本地连接"gateway=10.16.0.253 gwmetric=1echo 正在设置沈阳主DNS ,请稍等……netsh interface ip set dns name="本地连接" source=staticaddr=10.16.0.1 register=PRIMARYecho 正在设置沈阳备用DNS ,请稍等……netsh interface ip add dns name="本地连接" addr=10.100.1.2 index=2echo 正在设置沈阳主WINS ,请稍等……netsh interface ip set wins name="本地连接" source=staticaddr=10.16.0.1echo 正在设置沈阳备用WINS ,请稍等……netsh interface ip add wins name="本地连接" addr=10.100.1.2 index=2echo 设置完成!gotosyproxy:syproxyclscolor 1f@echo Windows Registry Editor Version 5.00>>1.reg@echo[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersi on\Internet Settings]>>1.reg@echo "ProxyEnable"=dword:00000001>>1.reg@echo "ProxyServer"="10.16.0.2:8080">>1.reg@echo"ProxyOverride"="10.*.*.*;192.168.*.*;<local>">>1.reg regedit /s 1.regdel 1.regecho 正在关闭浏览器：taskkill /f /t /im IEXPLORE.exeecho 正在开启浏览器"C:\Program Files\Internet Explorer\IEXPLORE.EXE"goto exit:exitclsecho.echo.echo.echo.echo.echo.echo.echo.echo 已完成所有设置. echo.echoecho.echo.echo.echo.echo.echo.echo.echo.echo.pauseexit用这种方法就不用建立多个批处理文件，用一个文件做多件事，何乐而不为呢！三、最后介绍一下如何使用VBS脚本来实现大连网络配置.vbson error resume nextstrIPAddress = array("10.15.100.86")strSubnetMask = array("255.255.0.0")strGateway = array("10.15.0.253")strGatewayMetric = array("1")strwinsOne = "10.15.0.1"strwinsTwo = "10.100.1.2"strdnsOne = "10.15.0.1"strdnsTwo = "10.100.1.2"strComputer = "."Set objShell = CreateObject("Wscript.shell")Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" &strComputer&"\root\cimv2")Set colNetCards = objWMIService.ExecQuery _("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")wscript.echo "正在进行大连网络配置"For Each objNetCard in colNetCardserrEnable = objNetCard.EnableStatic(strIPAddress,strSubnetMask) errGateways =objNetCard.SetGateways(strGateway,strGatewayMetric) arrDNSServers = Array(strdnsone, strdnstwo)objNetCard.SetDNSServerSearchOrder(arrDNSServers)SetWins = objNetCard.SetWINSServer(strwinsOne,strwinsTwo) Nextwscript.echo "大连网络配置完成！"IE代理配置.vbsstrMachines = "10.15.0.2:3128;10.16.0.2:3128"aMachines = split(strMachines, ";")For Each machine2 in aMachinesmachinearr = split(machine2, ":")machine = machinearr(0)Set objPing =GetObject("winmgmts:{impersonationLevel=impersonate}")._ ExecQuery("select * from Win32_PingStatus where address = '"_ & machine & "'")For Each objStatus in objPingIf IsNull(objStatus.StatusCode) orobjStatus.StatusCode<>0 ThenWScript.Echo(machine2 & " is not reachable")elseWScript.Echo(machine2 & " is OK")if confirm("设置代理为"& machine2 &"？") then msgboxSetIEProxy(1,machine2)end ifEnd IfNextNextfunction confirm(s)confirm = (msgbox(s,vbYesNo,s) = 6)end functionFunction SetIEProxy(ProxyEnable,ProxyIP)On Error Resume NextConst HKEY_CURRENT_USER = &H80000001strComputer = "."Set objReg = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}\\" &strComputer& _"\root\default:StdRegProv")strKeyPath ="Software\Microsoft\Windows\CurrentVersion\Internet Settings\" strEntryName = "ProxyEnable"dwvalue = ProxyEnableobjReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValuestrEntryName = "ProxyServer"dwvalue = ProxyIPobjReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValuestrEntryName = "ProxyOverride"dwvalue = "10.*.*.*;192.168.*.*;<local>"objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValueIf Err = 0 ThenSetIEProxy = TrueElseSetIEProxy = FalseEnd IfEnd Functionmsgbox "ok"至此所有的方法已经向大家介绍了一遍，不管是BAT还是VBS，都可以实现我们想要的功能。
双网络批处理切换
问题： 我有两个网络，一个是计生的内部网，一个是普通的外网，现在需要用切换器点切换，比较麻烦，，我以前有一个设置可以自动的，改下网卡，好像是输了一点批处理就可以，现在忘了，请知道的，帮解决一下，
网络情况是一个是固定IP 192.168.195.88 别一个可以自动获取，或者用192.168.1.2-192.168.1.xxx都OK
以前改好的结果是，不论我上内网的还是外网的，都是一点就开，不用改什么IP参数，也不用什么切换器，谢谢！！！
两个还分别是 192.168.95.195 255.255.255.252 192.168.95.193
192.168.1.8 255.255.255.0 192.168.1.1 DNS是一样的 61.177.7.1
netsh interface ip set dns "本地连接" static 61.177.7.1
这个是192.sh interface ip set address "本地连接" static 192.168.1.8 255.255.255.252 192.168.1.1 1
解决： 复制到记事本，保存后，将txt改为.bat后缀，需要切换边个就运行边个.bat
这个是为192.168.95.195的复制下面两行
netsh interface ip set address "本地连接" static 192.168.95.195 255.255.255.252 192.168.95.193 1
一键设置网络IP地址的bat批处理！
一键设置网络IP地址的bat批处理！许多时候,我们在公司需要用内网环境,IP需要设置成固定网段的。
而每天回家后又需要更改为自动获取IP的外网环境。
这样是非常麻烦的一件事情,通过编写bat批处理文件，利用dos命令，可以方便的来修改IP地址，话不多说，下面就是代码，复制修改一下就可以使用。
---以下是代码，不要复制本分割线---@echo offclscolor 0A@echo offecho.echo ===修改 [以太网] ip地址===echo.echo 1:自动获取echo.echo 2:重设ip地址echo.echo.set/p sel=请选择修改方式：if '%sel%'=='1' goto autoif '%sel%'=='2' goto ztecho 您没有选择修改方式。
goto end:autonetsh interface ip set address name='以太网' source=dhcp netsh interface ip delete dns '以太网' allipconfig /flushdnsipconfig /allgoto end:ztecho 正在更改IP地址，请稍等......netsh interface ip set address name='以太网' source=static addr=192.168.5.134 mask=255.255.255.0 gateway=192.168.5.254 gwmetric=1netsh interface ip set dns name='以太网' source=static addr=192.168.5.254ipconfig /flushdnsipconfig /allecho 更改IP地址完成！goto end:endPause------以上是代码，不要复制本分割线------里面的“以太网”是你网卡的名字，也可能是“本地连接”，根据自己的需要进行修改便是了。
批处理文件（bat）实现内外网IP切换
批处理⽂件（bat）实现内外⽹IP切换@echo offrem 强制获取管理员权限%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exitrem //设置变量set NAME="以太⽹"rem //可以根据需要更改以下属性值set ADDR=192.168.1.1set MASK=255.255.255.0set GATEWAY=192.168.1.254set DNS1=59.11.99.66set DNS2=rem //可以根据需要更改以下属性值set ADDR_YF=10.0.2.1set MASK_YF=255.255.255.0set GATEWAY_YF=10.0.2.254set DNS1_YF=noneset DNS2_YF=rem //以上属性为IP地址、⼦⽹掩码、⽹关、⾸选DNS和备⽤DNSecho 当前可⽤的操作包括:echo 1 设置外⽹IPecho 2 设置研发⽹IPecho 3 退出echo 请选择你要的操作:set /p operate=if %operate%==1 goto 1if %operate%==2 goto 2if %operate%==3 goto 3:1echo 设置外⽹IP中, 请稍等...rem //可以根据你的需要进⾏更改echo IP_ADDR = %ADDR%echo MASK = %MASK%echo GATEWAY = %GATEWAY%netsh interface ipv4 set address %NAME% static %ADDR% %MASK% %GATEWAY%echo ⾸选DNS = %DNS1%if "%DNS1%"=="" (echo DNS1为空) else netsh interface ipv4 set dns %NAME% static %DNS1% primaryecho 备⽤DNS = %DNS2%if "%DNS2%"=="" (echo DNS2为空) else (netsh interface ipv4 add dns %NAME% %DNS2%)echo **********设置为外⽹IP成功:%ADDR%***********pausegoto 3:2echo 设置研发⽹IP中, 请稍等...rem //可以根据你的需要进⾏更改echo IP_ADDR = %ADDR_YF%echo MASK = %MASK_YF%echo GATEWAY = %GATEWAY_YF%netsh interface ipv4 set address %NAME% static %ADDR_YF% %MASK_YF% %GATEWAY_YF%echo ⾸选DNS = %DNS1_YF%if "%DNS1%"=="" (echo DNS1为空) else netsh interface ipv4 set dns %NAME% static %DNS1_YF% primaryecho 备⽤DNS = %DNS2%if "%DNS2%"=="" (echo DNS2为空) else (netsh interface ipv4 add dns %NAME% %DNS2_YF%)echo **********设置研发⽹IP成功:%ADDR_YF%***********pausegoto 3:3exit。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
自动切换内外网IP_DNS批处理源码02
内网IP_DNS设置.txt
# --------------------------------------------------------------
# 内网IP 设定程序
# 内网设置BAT
# --------------------------------------------------------------
pause
pushd interface ip
# "本地连接" 的界面 IP 设定
set address name=本地连接 source=static addr=10.10.20.40 mask=255.255.255.0 set address name=本地连接 gateway=10.10.20.1 gwmetric=auto
set dns name=本地连接 source=static addr=202.99.224.8 register=primary
add dns name=本地连接 addr=202.99.224.68 index=2
popd
内网IP_DNS设置.bat
netsh -f C:\内外网切换批处理文件\内网IP_DNS设置.txt
外网IP_DNS设置.txt
netsh -f c:\内外网切换批处理文件\外网IP_DNS设置.txt
外网IP_DNS设置.txt
# --------------------------------------------------------------
# 外网IP 设定程序
# 外网设置BAT
# --------------------------------------------------------------
pause
pushd interface ip
# "本地连接" 的界面 IP 设定
set address name=本地连接 source=dhcp
set dns name=本地连接 source=static addr=202.99.224.8 register=primary
add dns name=本地连接 addr=202.99.224.68 index=2
popd
安装文件.bat
@echo off
@echo 即将为你安装内外网设置文件；
@echo.
pause
md C:\内外网切换批处理文件
copy 内网IP_DNS设置.txt "C:\内外网切换批处理文件\内网IP_DNS设置.txt"
copy 外网IP_DNS设置.txt "C:\内外网切换批处理文件\外网IP_DNS设置.txt"
copy 内网IP_DNS设置.bat "C:\内外网切换批处理文件\内网IP_DNS设置.bat"
copy 外网IP_DNS设置.bat "C:\内外网切换批处理文件\外网IP_DNS设置.bat"
copy 内网IP_DNS设置.bat "C:\Documents and Settings\Administrator\桌面\内网
IP_DNS设置.bat"
copy 外网IP_DNS设置.bat "C:\Documents and Settings\Administrator\桌面\外网
IP_DNS设置.bat"
copy 内网IP_DNS设置.bat "C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch\内网IP_DNS设置.bat"
copy 外网IP_DNS设置.bat "C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch\外网IP_DNS设置.bat"
pause
exit
卸载文件.bat
@echo off
@echo 即将为你卸载内外网设置文件；
@echo.
pause
del "C:\Documents and Settings\Administrator\桌面\内网IP_DNS设置.bat"
del "C:\Documents and Settings\Administrator\桌面\外网IP_DNS设置.bat"
del "C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch\内网IP_DNS设置.bat"
del "C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch\外网IP_DNS设置.bat"
rmdir /s/q C:\内外网切换批处理文件
@echo 卸载完成；
pause
exit。