怎么使用vbs显示当前域内所有计算机名称及数目

前言

创建一个VBS脚本来显示当前域内所有计算机名称及数量。

代码实现

首先，我们需要使用WMI（Windows Management Instrumentation）查询域计算机。

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colComputers = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

' 循环输出计算机名称
For Each objComputer in colComputers
    WScript.Echo objComputer.Name
Next

' 显示计算机数量
WScript.Echo "计算机数量: " & colComputers.Count

代码解释

代码中使用了WMI服务提供的API来查询Win32_ComputerSystem类，该类包含了计算机的各种信息，包括名称。

首先，我们使用GetObject函数获取到WMI对象，然后使用ExecQuery方法执行查询语句，查询Win32_ComputerSystem类的所有实例。

接下来，使用For Each循环遍历查询结果集，通过objComputer.Name可以获取到计算机的名称，并使用WScript.Echo输出到控制台。

最后，使用colComputers.Count可以获取到计算机的数量，将其与字符串"计算机数量: "拼接，并使用WScript.Echo输出到控制台。

总结

通过以上代码，我们可以使用VBS脚本查询并显示当前域内所有计算机的名称和数量。