开发和测试环境处于不同的网段,经常需要更改IP,手工修改非常麻烦。后来找到了一个vbs小脚本,实现了自动切换。
假如IP段分别为192.168.30.*和192.168.41.*
分别新添两个文件Turn30.vbs和Turn41.vbs ,内容如下:
view plaincopy to clipboardprint?
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")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
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.30.99")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.30.254")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
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
view plaincopy to clipboardprint?
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")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
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")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
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
助人等于自助!
======================
配置静态 IP 地址
更新日期: 2003年02月17日
描述
将计算机的 IP 地址设置为 192.168.1.141,并将 IP 网关设置为 192.168.1.100。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next
For online peer support, join the microsoft.public.windows.server.scripting community on the msnews.microsoft.com news server. To provide feedback or report bugs in sample scripts or the Scripting Guide, please contact Microsoft TechNet.
免责声明
以上示例脚本不会获得由任何Microsoft标准支持计划或服务项目所提供的支持。这些示例脚本在提交时并未附带任何形式的保证承诺。不仅如此,Microsoft公司还不加限定条件地针对所有默许保证责任加以进一步否认,这其中便包括出于特定目的而针对适销性或适用性所承担的默许保证责任。因使用或执行上述示例脚本及文档资料而导致的全部风险均由读者自行承担。在任何情况下,Microsoft公司及其创作人员、亦或与上述脚本的创意、编制及提交有关的任何人员均无须针对因使用或无法使用上述示例脚本或文档资料所导致的任何损害(其中包括,企业利润损失、经营中断、业务信息丢失及其它经济损失)承担责任;即使Microsoft公司已被告知造成这种损害可能性,上述免责条款依然适用。
======================
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/downmoon/archive/2009/12/22/5054744.aspx
分享到:
相关推荐
VBS自动更换IP.vbs 'VBS自动更换IP Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Set oIE = CreateObject("InternetExplorer.Application") for i=1 to 5 wsh.run "Rasdial /DISCONNECT",false,1 wsh....
可以把以下代码复制到记事本, 保存成为GetNicInfo.vbs 扩展名是VBS, 然后你可以双击运行, 程序会枚举本机所有的网卡(物理,以及虚拟的)信息. 然后你可以参照你真实的网卡的MAC地址, 根据程序提示得到合适的AdapterID...
vbs实现自动IP和静态IP
vbs电脑IP快速切换工具 用于频繁修改本机IP的用户
VBS显示IP地址,VBS显示IP地址代码
换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs换ip脚本vbs
通过VBS自动发送电子邮件的源码实例,用不用SMTP协议,简使快捷。
由于到项目上出差,客户那里使用的网络需设置成固定ip,固定DNS。回到旅店又需要设置成自动,顺手写了这个脚本完成这个工作,大家学习交流
本人编写的DHCP、指定IP自动切换脚本 当网卡为指定IP时更改为自动获取IP 当网卡为自动获取IP时更改为指定IP 自动切换的VBS脚本
用VBS脚本判断IP地址有效性
这是个切换jdk版本的脚本,公司的项目要用比较老的jdk版本(1.6),大多数新的框架需要比较新的jdk 版本(1.8),之前想着再买个笔记本,一个办公,一个试手,后来选半天实在不知道选哪个,,就不选了,写了这个来控制jdk 版本,...
DB自动生成用vbs脚本DB自动生成用vbs脚本DB自动生成用vbs脚本DB自动生成用vbs脚本DB自动生成用vbs脚本DB自动生成用vbs脚本
VBS,IP,IP地址,局域网,动态,VBS,IP,IP地址,局域网,动态
WinCC中使用VBS脚本实现弹窗和画面切换
VBS设置IP地址
更改IP地址.vbs 一个让网管给不懂IT电脑的人应用的脚本
自动邮件发送 ' sdt 为今日日期的字符串,比如 '2010-12-9',可用于附件名字里 sdt = FormatDateTime(Date) ' receiptions 为收件人列表,多个收件人之间用分号隔开 ' Subject 为邮件标题 ' Body 为邮件正文 ' ...
VBS获取ip,mac,自已用的自动化测试工具(don't down)
VBS结合WMI技术修改IP地址,网关,DNS等
通过该脚本,可实现仿打印机效果的自动输入操作. 比如,自动输入密码,自动输入代码