用vbs自动切换不同网段的IP

开发和测试环境处于不同的网段，经常需要更改IP,手工修改非常麻烦。后来找到了一个vbs小脚本，实现了自动切换。

假如IP段分别为192.168.30.*和192.168.41.*

分别新添两个文件Turn30.vbs和Turn41.vbs ,内容如下：

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.30.99")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.30.254")

strDNS = Array("192.168.30.254")
strGatewayMetric = Array(1)

strDNS2 = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

    errDNS=objNetAdapter.SetDNSServerSearchOrder(strDNS,strDNS2)
    If errEnable = 0 Then
        WScript.Echo "The IP address has been changed to "&strIPAddress(0)
    Else
        WScript.Echo "The IP address could not be changed."
    End If
Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.41.52")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.41.1")

strDNS = Array("192.168.41.254")
strGatewayMetric = Array(1)

strDNS2 = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

使用方法：直接双击Turn30.vbs或Turn41.vbs即可执行。

参考网站：
http://www.microsoft.com/china/technet/community/scriptcenter/network/scrnet01.mspx

用vbs自动切换不同网段的IP相关推荐

Retrofit用Interceptor实现内外网接口自动切换访问(在内网IP访问失败的时候.访问外网接口)
Retrofit用Interceptor实现内外网接口自动切换访问(在内网IP访问失败的时候.访问外网接口) 主要项目里面需求有2个baseurl,必须要能够根据用户的网络状况进行baseurl的重新 ...
ip地址自动切换器_网络IP切换器IPProviders下载_IPProviders官方版下载1.1.22
IPProviders官方版是非常强大的ip切换器助手,可以进行ip地址更换,网关和dns更改.使用方法很简单,用户只需要提前设置好ip地址,需要切换的时候就可以任意切换了,让你可以随意切换更改自己的 ...
多IP服务器自动切换内网IP易语言源码
介绍: 自动切换电脑内网IP, 记得以前开发这个主要是适应国外多IP服务器切换,对一般用户用处不大. 所以把源码代码发出来可以根据自己需求修改了或者学习一下. 网盘下载地址: http://kek ...
Windows系统自动切换IP批处理
对于同时使用内外网的用户来说,经常需要手动切换内外网的IP.现提供一个自动切换IP的批处理. windows7如下: netsh interface ip set address name=" ...
改完计算机名自动重启 vbs,VBS改计算机名，加IP，网关，DNS，无需禁用网卡.重...
VBS改计算机名,加IP,网关,DNS,无需禁用网卡.重 (2010-05-03 09:46:40) 标签: 诛仙sf网杂谈请修改符合您自己的参数. 以下内容保存为 XXX.VBS Dim Num ...
cisco 双ISP线路接入链路自动切换方案
最近接到的一个项目,客户总部在惠州,分部在香港,在香港分部设有ERP服务器与邮件服务器,总部出口为铁通10M光纤与网通1M DDN 专线(新增),原总部是用netscreen 防火墙与香港的pix 5 ...
自动切换IE代理设置：简单使用IE自动配置脚本
今天和一个朋友聊到了chrome的自动代理功能,很多人感觉这个功能非常方便,但大家或许不知道这个功能其实是继承自IE浏览器,而且在"遥远"的Windows 98时代IE就已经具有了 ...
nginx+keepalive主从双机热备+自动切换解决方案
环境采集cenots 6.3 64位迷你安装,因为安装前,你需要做一些工作 yum install -y make wget 如果你愿意可以更新下系统,更换下yum源. 1.安装keepalive 官 ...
Redis主从配置及通过Keepalived实现Redis自动切换高可用
Redis主从配置及通过Keepalived实现Redis自动切换高可用 [日期:2014-07-23] 来源:Linux社区作者:fuquanjun [字体:大中小] 一:环境介绍: Mas ...

用vbs自动切换不同网段的IP

用vbs自动切换不同网段的IP相关推荐

最新文章

热门文章