用vbs针对一个 IP 地址范围运行脚本_vbs教程-查字典教程网
用vbs针对一个 IP 地址范围运行脚本
用vbs针对一个 IP 地址范围运行脚本
发布时间:2016-12-28 来源:查字典编辑
摘要:问:嗨,ScriptingGuy!我想在一个子网中的所有计算机上运行脚本。有没有办法不必将所有IP地址都硬编码到脚本中就能完成这项任务呢?-...

问:

嗨,ScriptingGuy!我想在一个子网中的所有计算机上运行脚本。有没有办法不必将所有IP地址都硬编码到脚本中就能完成这项任务呢?

--RB

答:

嗨,RB。根据您在电子邮件中的描述,看来您的设置类似于:您的子网的IP地址范围为192.168.1.1到192.168.1.254。您想创建一个脚本,可以先从第一个IP地址开始,在相应的计算机上运行某个代码,然后转到第二个地址,运行相同的代码,按地址顺序在每台计算机上都运行相同的脚本。此外,您想通过尽可能最少的代码行就能办到这一点,并且不必硬编码好几百个IP地址。

那么,有办法能做到吗?当然有,而且比您想象的还要简单。

首先,让我们向您介绍如何某个IP地址范围进行循环。这是一个示例代码,所以只用于回显每个IP地址的名称。在介绍了该脚本的工作原理后,我们将举一个更实际的例子:

复制代码 代码如下:

OnErrorResumeNext

intStartingAddress=1

intEndingAddress=254

strSubnet="192.168.1."

Fori=intStartingAddresstointEndingAddress

strComputer=strSubnet&i

Wscript.EchostrComputer

Next

不,真的,这就是整个脚本了。我们先指派了一些变量:将值“1”指派给intStartingAddress;将值“254”指派给intEndingAddress;并将值“192.168.1.”指派给strSubnet。(注意“1”后面的英文句号)。正如您可能猜到的,这些值将作为建立IP地址的构建块。

指派了这些变量之后,我们创建了一个For-Next循环,用以运行1(intStartingAddress)到254(intEndingAddress)的变量。为何要循环1到254呢?原因很简单:那是您的IP范围。如果IP范围是192.168.1.7到109.168.1.54,又该怎么办呢?没有问题:使用相同的循环,但要将intStartingAddress的值改为“7”,并将intEndingAddress的值改为“54”。

在此循环中,我们将字符串值192.168.1.与循环变量(i)的当前值相串联。在首次运行循环——当“i”等于“1”时,我们将192.168.1.和1相结合。您猜怎么样?我们得到了值192.168.1.1,恰好是第一个IP地址。最后一次运行循环时,我们将把192.168.1.和254相结合,从而得到最后一个IP地址的值——192.168.1.254。运行该脚本,将得到:

192.168.1.1

192.168.1.2

192.168.1.3

192.168.1.4

非常简单吧?

当然,您可能对于回显一组IP地址不会多感兴趣;您想运行某种WMI代码。好的:

OnErrorResumeNext

intStartingAddress=1

intEndingAddress=254

strSubnet="192.168.1."

Fori=intStartingAddresstointEndingAddress

strComputer=strSubnet&i

SetobjWMIService=GetObject_

("winmgmts:"&strComputer&"rootcimv2")

SetcolItems=objWMIService.ExecQuery_

("Select*FromWin32_OperatingSystem")

ForEachobjIteminColItems

Wscript.EchostrComputer&":"&objItem.Caption

Next

Next

正如您所看到的,我们再次把strComputer变量的值设为某个IP地址。然后连接到该地址所表示的计算机上的WMI服务。这很容易办到,因为WMI既可以使用计算机名,也可以使用IP地址连接到计算机。

现在,我们要加入一项小技巧。您在电子邮件中提到,想要排除几个IP地址(可能代表路由器或其他东西)。好的。这里有一个经过修改的脚本,其使用SelectCase语句来排除某些计算机:

intEndingAddress=254

strSubnet="192.168.1."

Fori=intStartingAddresstointEndingAddress

SelectCasei

Case10

Case50

Case100

CaseElse

strComputer=strSubnet&i

SetobjWMIService=GetObject_

("winmgmts:"&strComputer&"rootcimv2")

SetcolItems=objWMIService.ExecQuery_

("Select*FromWin32_OperatingSystem")

ForEachobjIteminColItems

Wscript.EchostrComputer&":"&objItem.Caption

Next

EndSelect

Next

注意一下当“i”值等于10、50或100时,所发生的变化。没错:一点都没变化。如果计算机的IP地址为192.168.1.10、192.168.1.50或192.168.1.100,不会发生任何变化;不会运行任何WMI代码,脚本将照样执行循环。该WMI代码将仅在拥有其他IP地址(上面三个地址除外)的计算机上执行。这是一种用以在该脚本的WMI部分中排除特定IP地址的既简单又有效的办法。

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新vbs学习
    热门vbs学习
    脚本专栏子分类