问： 嗨，Scripting Guy！我想在一个子网中的所有计算机上运行脚本。有没有办法不必将所有 IP 地址都硬编码到脚本中就能完成这项任务呢？
-- RB
答： 嗨，RB。根据您在电子邮件中的描述，看来您的设置类似于：您的子网的 IP 地址范围为 192.168.1.1 到 192.168.1.254。您想创建一个脚本，可以先从第一个 IP 地址开始，在相应的计算机上运行某个代码，然后转到第二个地址，运行相同的代码，按地址顺序在每台计算机上都运行相同的脚本。此外，您想通过尽可能最少的代码行就能办到这一点，并且不必硬编码好几百个 IP 地址。
那么，有办法能做到吗？当然有，而且比您想象的还要简单。
首先，让我们向您介绍如何某个 IP 地址范围进行循环。这是一个示例代码，所以只用于回显每个 IP 地址的名称。在介绍了该脚本的工作原理后，我们将举一个更实际的例子：
For i = intStartingAddress to intEndingAddress strComputer = strSubnet & i
Set objWMIService = GetObject _ ("winmgmts://" & strComputer & "/root/cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_OperatingSystem") For Each objItem in ColItems Wscript.Echo strComputer & ": " & objItem.Caption Next
Next
正如您所看到的，我们再次把 strComputer 变量的值设为某个 IP 地址。然后连接到该地址所表示的计算机上的 WMI 服务。这很容易办到，因为 WMI 既可以使用计算机名，也可以使用 IP 地址连接到计算机。
现在，我们要加入一项小技巧。您在电子邮件中提到，想要排除几个 IP 地址（可能代表路由器或其他东西）。好的。这里有一个经过修改的脚本，其使用 Select Case 语句来排除某些计算机：
intEndingAddress = 254 strSubnet = "192.168.1."
For i = intStartingAddress to intEndingAddress Select Case i Case 10 Case 50 Case 100
Case Else strComputer = strSubnet & i Set objWMIService = GetObject _ ("winmgmts://" & strComputer & "/root/cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_OperatingSystem") For Each objItem in ColItems Wscript.Echo strComputer & ": " & objItem.Caption Next
End Select Next
注意一下当“i”值等于 10、50 或 100 时，所发生的变化。没错：一点都没变化。如果计算机的 IP 地址为 192.168.1.10、192.168.1.50 或 192.168.1.100，不会发生任何变化；不会运行任何 WMI 代码，脚本将照样执行循环。该 WMI 代码将仅在拥有其他 IP 地址（上面三个地址除外）的计算机上执行。这是一种用以在该脚本的 WMI 部分中排除特定 IP 地址的既简单又有效的办法。
