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

最新推荐文章于 2022-02-28 18:20:03 发布

原创最新推荐文章于 2022-02-28 18:20:03 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#each #脚本 #测试

本文介绍了一种利用VBS脚本来自动切换计算机IP地址的方法，适用于开发和测试环境之间的快速转换。通过简单的脚本实现不同网段IP地址的自动配置，包括IP地址、子网掩码、默认网关及DNS服务器。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

开发和测试环境处于不同的网段，经常需要更改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) 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

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

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

邀月注：本文版权由邀月和优快云共同所有，转载请注明出处。

助人等于自助!   3w@live.cn