使用脚本自动修改ip设置
2004-12-02 15:53
876 查看
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
相关文章推荐
- To avoid the comment spam
- 中国车牌号的识别
- 鱼雷遇到解放者 – 红工场LiberatorJDO的Torpedo O/R Mapping性能基准测试
- .Net中命名空间的问题(区分大小写)
- 的文章专栏
- 34省市的标志性建筑-看看自己家乡的标志
- I PRAY
- VB程序出现"Couldn't find installable ISAM."这条错误信息,什么含义?
- DataTable,DataView和DataGrid中一些容易混淆的概念
- 毕业前一个月我们醉了
- 正则表达式的基本语法
- 一点感想及aix如何快速入门到精通
- Table的宽度,单元格内换行问题
- Create Self-Validating Controls(zt)
- Asp.net中基于Forms验证的角色验证授权
- 托盘图标提示
- Inside Liberator JDO & JDO2
- 为什么在一个线程中不能调用显示另一个窗体?
- 读书心得:社会道德准则
- 呵呵,学编程,工具的帮助真是宝