修改你的网络适配器的IP信息

　通过图形界面来修改一个机器的TCP/IP设置通常包括很多步骤，你要经常做这个，尤其如果你的机器是网络测试的一部分，你又经常要测试不同部署环境的工作，这个过程可能比较乏味。

　　使用下面的VB脚本，你能构快速和频繁地修改你的计算机上的网罗适配器的信息。要使用这个脚本，输入这个到记事本里面并且把它的扩展名改成.vbs，例如ChangeIP.vbs。

Option Explicit
 
Dim NetworkAdapter, AdapterConfiguration 'Objects
Dim IPAddress, SubnetMask, Gateway, DNS 'String Arrays
Dim RetVal 'Integers
 
For Each NetworkAdapter In
GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")
If NetworkAdapter.AdapterType = "Ethernet 802.3" Then
For Each AdapterConfiguration In GetObject("winmgmts:").InstancesOf
("Win32_NetworkAdapterConfiguration")
If UCase(AdapterConfiguration.ServiceName) = UCase(NetworkAdapter.ServiceName) Then
IPAddress = Array("192.168.0.10")
SubnetMask = Array("255.255.255.0")
Gateway = Array("192.168.0.1")
DNS = Array("35.8.2.41")
 
RetVal = AdapterConfiguration.EnableStatic(IPAddress, SubnetMask)
If Not RetVal = 0 Then

WScript.Echo "Failure assigning IP/Subnetmask."
End If
RetVal = AdapterConfiguration.SetGateways(Gateway)

If Not RetVal = 0 Then
WScript.Echo "Failure assigning Gateway."
End If
RetVal = AdapterConfiguration.SetDnsServerSearchOrder
(DNS)
If Not RetVal = 0 Then
WScript.Echo "Failure assinging DNS search order."
End If
End If
Next
End If
Next

　　事实上是修改在上面脚本中的这些IP信息，这些在你的环境中是必需的:

　　IPAddress = Array("192.168.0.10")

　　SubnetMask = Array("255.255.255.0")

　　Gateway = Array("192.168.0.1")

　　DNS = Array("35.8.2.41")

　　例如，要改变一个计算的IP地址到172.16.49.5，子网掩码是255.255.0.0，默认网关是172.16.47.3，重置下面这些:

　　IPAddress = Array("172.16.49.5")

　　SubnetMask = Array("255.255.0.0")

　　Gateway = Array("172.16.47.3")

　　同时，写下一下的代码:If NetworkAdapter.AdapterType = "Ethernet 802.3" Then

　　这是这个脚本检查AdapterType，当你的脚本被以"Ethernet 802.3."列出，如果你有不同的网络环境，修改这一行。

　　一旦这些修改被应用到这个脚本，创建一个快捷方式到这个脚本，并且双击这个快捷方式，这个脚本就开始运行了。