使用脚本自动修改ip设置

类别:.NET开发 点击:0 评论:0 推荐:

http://www.waynedeng.com/blog/showlog.asp?log_id=485&cat_id=26
vbs脚本的功能非常强大, 管理系统简单方便!下面的脚本win2000和winxp都可以使用,win2003没有测试过,
应该也没有问题。如果需要经常切换网关,或是ip,这个脚本是最方便的了。稍微修改一下甚至可以做到1分钟变一次ip。

changeip.vbs





strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter in colNetAdapters sip=objNetAdapter.IPAddress strIPAddress = sip '保持原来的ip,如果需要修改ip为192.168.0.200:strIPAddress = Array("192.168.0.200") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.0.254") '修改网关为192.168.0.254 strGatewayMetric = Array(1) 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 exit for '只修改第一个网卡的设置 Next

本文地址:http://com.8s8s.com/it/it42531.htm