一个可以自动更改IP地址的脚本

怎么说呢？其实改IP有很多方法，利用上篇文章中的netsh 命令做个批处理命令也可以做到。有兴趣的自己研究研究吧，下面的使用VBS做的。其实偶只是单纯的复制粘贴，代码还可以精简点的哦。
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("12.113.47.50")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("12.113.47.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."
Else
WScript.Echo "The IP address could not be changed."
End If
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrDNSServers = Array("12.113.250.253", "12.113.250.254")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
汉堡加盟http://www.fanzaihanbao.com/汉堡店加盟
本文出自 “酷鸟的技术交流区” 博客，请务必保留此出处http://coolbird.blog.51cto.com/665353/320877