• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    批处理、VBS实现自动设置IP、默认网关、DNS、WINS、IE代理(全)

    因为公司有同事负责大连、沈阳两个城市,经常在两地来回走动,到每个城市后,都要自己手动更改相应的网络配置,况且到外地时住的是酒店, 酒店上网是自动获得IP,又要将网络设置取消,真的很麻烦!于是想起写一个批处理!来解决这个问题!主要用到的命令是netsh.
    -、第一种方法是将两地的网络配置先进行本机设置,然后再导出,等用到的时候,再分别导入。
    1、将现有的配置导出到d:\dalian.txt中:
    netsh –c interface dump > d:\dalian.txt

    2、将之前导出的d:\dalian.txt文件进行导入:
    netsh -f d:\dalian.txt
    这种方法在执行时有点慢,不如下面的方法。

    二、第二种方法
    语法格式:
    1、设置IP、网关
    netsh interface ip set address name="本地连接" static 要设置的IP地址 子网掩码 网关IP 网关跃数

    2、设置主DNS、WINS
    netsh interface ip set dns/wins name="本地连接" static 要设置的DNS地址 register=PRIMARY

    2、设置备用DNS、WINS
    netsh interface ip add dns/wins name="本地连接" 要设置的DNS地址 index=2

    具体配置如下:
    1、酒店.bat

    复制代码 代码如下:

    @echo off
    echo 取消指定网络配置,请稍等….
    echo.
    echo 正在设置自动获取IP地址,请稍等……
    netsh interface ip set address name="本地连接" source=dhcp
    echo 正在设置自动获取DNS,请稍等……
    netsh interface ip set dns name="本地连接" source=dhcp
    echo 设置完成!


    2、大连.bat
    复制代码 代码如下:

    @echo off
    echo 开始设置大连网络地址!
    echo 正在设置大连IP ,请稍等……
    netsh interface ip set address name="本地连接" source=static addr=10.15.100.86 mask=255.255.0.0
    echo 正在设置大连网关,请稍等……
    netsh interface ip set address name="本地连接" gateway=10.15.0.253 gwmetric=1
    echo 正在设置大连主DNS ,请稍等……
    netsh interface ip set dns name="本地连接" source=static addr=10.15.0.1 register=PRIMARY
    echo 正在设置大连备用DNS ,请稍等……
    netsh interface ip add dns name="本地连接" addr=10.100.1.2 index=2
    echo 正在设置大连主WINS ,请稍等……
    netsh interface ip set wins name="本地连接" source=static addr=10.15.0.1
    echo 正在设置大连备用WINS ,请稍等……
    netsh interface ip add wins name="本地连接" addr=10.100.1.2 index=2
    echo 设置完成!


    3、沈阳.bat
    复制代码 代码如下:

    @echo off
    echo 开始设置沈阳网络地址!
    echo 正在设置沈阳IP ,请稍等……
    netsh interface ip set address name="本地连接" source=static addr=10.16.100.86 mask=255.255.0.0
    echo 正在设置沈阳网关,请稍等……
    netsh interface ip set address name="本地连接" gateway=10.16.0.253 gwmetric=1
    echo 正在设置沈阳主DNS ,请稍等……
    netsh interface ip set dns name="本地连接" source=static addr=10.16.0.1 register=PRIMARY
    echo 正在设置沈阳备用DNS ,请稍等……
    netsh interface ip add dns name="本地连接" addr=10.100.1.2 index=2
    echo 正在设置沈阳主WINS ,请稍等……
    netsh interface ip set wins name="本地连接" source=static addr=10.16.0.1
    echo 正在设置沈阳备用WINS ,请稍等……
    netsh interface ip add wins name="本地连接" addr=10.100.1.2 index=2
    echo 设置完成!

    至此第二种方法完成!

    三、也可以在批处理中使用变量!例如大连.BAT可以按照如下方法写:
    复制代码 代码如下:

    @ echo off
    rem 设置变量
    set Nic=本地连接
    rem //可以根据你的需要更改,
    set Addr=10.15.100.86
    set Mask=255.255.0.0
    set Gway=10.15.0.253
    set Dns1=10.15.0.1
    set Dns2=10.100.1.2
    set Wins1=10.15.0.1
    set Wins2=10.100.1.2
    rem //以上依次为IP地址、子网掩码、网关、首选DNS、备用DNS、首选WINS、备用WINS
    echo ------------------------------------------------------
    echo 正在进行大连IP设置,请稍等
    rem //可以根据你的需要更改
    echo. IP地址 = %Addr%
    echo. 子网掩码 = %Mask%
    netsh interface ip set address name=%Nic% source=static addr=%Addr% mask=%Mask% gt;nul
    echo. 网关 = %Gway%
    netsh interface ip set address name=%Nic% gateway=%Gway% gwmetric=1 gt;nul
    echo. 首选DNS = %Dns1%
    netsh interface ip set dns name=%Nic% source=static addr=%Dns1% register=PRIMARY gt;nul
    echo. 备用DNS = %Dns2%
    netsh interface ip add dns name=%Nic% addr=%Dns2% index=2 gt;nul
    echo. 首选WINS = %Wins1%
    netsh interface ip set wins name=%Nic% source=static addr=%Wins1% register=PRIMARY gt;nul
    echo. 备用WINS = %Wins2%
    netsh interface ip add wins name=%Nic% addr=%Wins2% index=2 gt;nul
    echo ------------------------------------------------------
    echo IP设置完成!


    依个人习惯采用适合自己的方法。
    四、自动设置IE代理
    大连IE代理.bat
    复制代码 代码如下:

    @echo off
    title 自动设置代理服务器
    echo 自动设置代理服务器
    rem echo 正在清空代理服务器设置……
    rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0 /f
    rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "" /f
    rem reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d 0 /f
    rem echo 代理服务器设置已经清空
    echo 正在设置代理服务器……
    reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f
    reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "10.15.0.2:3128" /f
    reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d "10.*.*.*;192.168.*.*;local>" /f

    沈阳的一样设置即可。
    或者用下面的方法:
    复制代码 代码如下:

    cls
    color 1f
    @echo 清空代理设置
    @echo Windows Registry Editor Version 5.00gt;gt;1.reg
    @echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
    @echo "ProxyEnable"=dword:00000000gt;gt;1.reg
    @echo "ProxyServer"=""gt;gt;1.reg
    @echo "ProxyOverride"=""gt;gt;1.reg
    regedit /s 1.reg
    del 1.reg
    @echo 设置代理
    @echo Windows Registry Editor Version 5.00gt;gt;1.reg
    @echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
    @echo "ProxyEnable"=dword:00000001gt;gt;1.reg
    @echo "ProxyServer"="10.15.0.2:8080"gt;gt;1.reg
    @echo "ProxyOverride"="10.*.*.*;192.168.*.*;local>"gt;gt;1.reg
    regedit /s 1.reg
    del 1.reg

    五、以上配合结合,放在一个文件里,可以这样写:
    网络综合配置.bat
    复制代码 代码如下:

    @echo off
    color 1f
    title "网卡IE代理设置批处理"
    echo 实现功能包括切换大连和沈阳网络配置,设置IE代理.
    goto 51job
    :51job
    echo.
    echo 请选择: 1:大连,2:沈阳,3:ADSL
    set /p choice=请输入相应数字后回车:
    if /i "%choice%" == "1" goto dlnet
    if /i "%choice%" == "2" goto synet
    if /i "%choice%" == "3" goto adsl
    goto 51job
    :adsl
    cls
    color 1f
    netsh interface ip set address name="本地连接" source=dhcp
    netsh interface ip set dns name="本地连接" source=dhcp
    cls
    goto noproxy
    :noproxy
    @echo Windows Registry Editor Version 5.00gt;gt;1.reg
    @echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
    @echo "ProxyEnable"=dword:00000000gt;gt;1.reg
    @echo "ProxyServer"=""gt;gt;1.reg
    @echo "ProxyOverride"=""gt;gt;1.reg
    regedit /s 1.reg
    del 1.reg
    goto exit
    :dlnet
    cls
    color 1f
    echo.
    set /p choice=输入" N "后回车跳过网卡设置, 直接回车继续网卡设置:
    if /i "%choice%" == "N" goto proxy
    cls
    echo 开始设置大连网络地址!
    echo 正在设置大连IP ,请稍等……
    netsh interface ip set address name="本地连接" source=static addr=10.15.100.86 mask=255.255.0.0
    echo 正在设置大连网关,请稍等……
    netsh interface ip set address name="本地连接" gateway=10.15.0.253 gwmetric=1
    echo 正在设置大连主DNS ,请稍等……
    netsh interface ip set dns name="本地连接" source=static addr=10.15.0.1 register=PRIMARY
    echo 正在设置大连备用DNS ,请稍等……
    netsh interface ip add dns name="本地连接" addr=10.100.1.2 index=2
    echo 正在设置大连主WINS ,请稍等……
    netsh interface ip set wins name="本地连接" source=static addr=10.15.0.1
    echo 正在设置大连备用WINS ,请稍等……
    netsh interface ip add wins name="本地连接" addr=10.100.1.2 index=2
    echo 设置完成!
    echo 正在刷新设置……
    ipconfig /flushdns
    echo 显示新的设置:
    ipconfig /all
    goto dlproxy
    :dlproxy
    cls
    color 1f
    @echo Windows Registry Editor Version 5.00gt;gt;1.reg
    @echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
    @echo "ProxyEnable"=dword:00000001gt;gt;1.reg
    @echo "ProxyServer"="10.15.0.2:8080"gt;gt;1.reg
    @echo "ProxyOverride"="10.*.*.*;192.168.*.*;local>"gt;gt;1.reg
    regedit /s 1.reg
    del 1.reg
    echo 正在关闭浏览器:
    taskkill /f /t /im IEXPLORE.exe
    echo 正在开启浏览器
    "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
    goto exit
    :synet
    cls
    color 1f
    echo.
    set /p choice=输入" N "后回车跳过网卡设置, 直接回车继续网卡设置:
    if /i "%choice%" == "N" goto proxy
    cls
    echo 开始设置沈阳网络地址!
    echo 正在设置沈阳IP ,请稍等……
    netsh interface ip set address name="本地连接" source=static addr=10.16.100.86 mask=255.255.0.0
    echo 正在设置沈阳网关,请稍等……
    netsh interface ip set address name="本地连接" gateway=10.16.0.253 gwmetric=1
    echo 正在设置沈阳主DNS ,请稍等……
    netsh interface ip set dns name="本地连接" source=static addr=10.16.0.1 register=PRIMARY
    echo 正在设置沈阳备用DNS ,请稍等……
    netsh interface ip add dns name="本地连接" addr=10.100.1.2 index=2
    echo 正在设置沈阳主WINS ,请稍等……
    netsh interface ip set wins name="本地连接" source=static addr=10.16.0.1
    echo 正在设置沈阳备用WINS ,请稍等……
    netsh interface ip add wins name="本地连接" addr=10.100.1.2 index=2
    echo 设置完成!
    goto syproxy
    :syproxy
    cls
    color 1f
    @echo Windows Registry Editor Version 5.00gt;gt;1.reg
    @echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]gt;gt;1.reg
    @echo "ProxyEnable"=dword:00000001gt;gt;1.reg
    @echo "ProxyServer"="10.16.0.2:8080"gt;gt;1.reg
    @echo "ProxyOverride"="10.*.*.*;192.168.*.*;local>"gt;gt;1.reg
    regedit /s 1.reg
    del 1.reg
    echo 正在关闭浏览器:
    taskkill /f /t /im IEXPLORE.exe
    echo 正在开启浏览器
    "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
    goto exit
    :exit
    cls
    echo.
    echo.
    echo.
    echo.
    echo.
    echo.
    echo.
    echo.
    echo 已完成所有设置.
    echo.
    echo
    echo.
    echo.
    echo.
    echo.
    echo.
    echo.
    echo.
    echo.
    echo.
    pause
    exit

    用这种方法就不用建立多个批处理文件,用一个文件做多件事,何乐而不为呢!
    六、最后介绍一下如何使用VBS脚本来实现
    大连网络配置.vbs
    复制代码 代码如下:

    on error resume next
    strIPAddress = 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 colNetCards
    errEnable = objNetCard.EnableStatic(strIPAddress,strSubnetMask)
    errGateways = objNetCard.SetGateways(strGateway,strGatewayMetric)
    arrDNSServers = Array(strdnsone, strdnstwo)
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
    SetWins = objNetCard.SetWINSServer(strwinsOne,strwinsTwo)
    Next
    wscript.echo "大连网络配置完成!"

    IE代理配置.vbs
    复制代码 代码如下:

    strMachines = "10.15.0.2:3128;10.16.0.2:3128"
    aMachines = split(strMachines, ";")
    For Each machine2 in aMachines
    machinearr = split(machine2, ":")
    machine = machinearr(0)
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
    ExecQuery("select * from Win32_PingStatus where address = '"_
    machine "'")
    For Each objStatus in objPing
    If IsNull(objStatus.StatusCode) or objStatus.StatusCode>0 Then
    WScript.Echo(machine2 " is not reachable")
    else
    WScript.Echo(machine2 " is OK")
    if confirm("设置代理为" machine2 "?") then
    msgbox SetIEProxy(1,machine2)
    end if
    End If
    Next
    Next
    function confirm(s)
    confirm = (msgbox(s,vbYesNo,s) = 6)
    end function
    Function SetIEProxy(ProxyEnable,ProxyIP)
    On Error Resume Next
    Const HKEY_CURRENT_USER = H80000001
    strComputer = "."
    Set objReg = GetObject("winmgmts:" _
    "{impersonationLevel=impersonate}\\" strComputer _
    "\root\default:StdRegProv")
    strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
    strEntryName = "ProxyEnable"
    dwvalue = ProxyEnable
    objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
    strEntryName = "ProxyServer"
    dwvalue = ProxyIP
    objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
    strEntryName = "ProxyOverride"
    dwvalue = "10.*.*.*;192.168.*.*;local>"
    objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
    If Err = 0 Then
    SetIEProxy = True
    Else
    SetIEProxy = False
    End If
    End Function
    msgbox "ok"

    至此所有的方法已经向大家介绍了一遍,不管是BAT还是VBS,都可以实现我们想要的功能。总的来说,还是根据自己的特定要求来选择!再执行命令时,要注意权限的问题!

    您可能感兴趣的文章:
    • 批处理经典入门教程!(从不懂到高手)
    • windows批处理命令教程
    • bat批处理 if 命令示例详解
    • 批处理 Set 命令详解 让你理解set命令
    • BAT批处理中的字符串处理详解(字符串截取)
    • 批处理命令Start的使用介绍
    • 批处理bat设置固定IP地址和自动IP地址
    • Windows下用命令行修改IP地址的方法详解(附批处理文件)
    • 批处理获取网卡名称的代码(附修改IP、网关、DNS脚本)
    • 获取外网IP地址的批处理代码
    • IP地址自动设置的批处理代码分享
    上一篇:清除svn文件的bat脚本整理
    下一篇:批处理实现固定IP地址 系统自动登录 登录后锁定计算机
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    批处理、VBS实现自动设置IP、默认网关、DNS、WINS、IE代理(全) 批处理,VBS,实现,自动,设置,