通过图形界面来修改一个机器的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
www.lexue88.com
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.”列出，如果你有不同的网络环境，修改这一行。
一旦这些修改被应用到这个脚本，创建一个快捷方式到这个脚本，并且双击这个快捷方式，这个脚本就开始运行了。
，计算机四级考试：修改网络适配器的IP信息tag: 计算机等级考试，计算机等级考试试题,全国计算机等级考试试题，计算机等级考试