局域网内电脑软件和硬件清单查询：VBS脚本指南

电脑技巧

2024-01-15 14:25:47

局域网内电脑软件和硬件清单查询：终极指南

在当今数字时代，网络管理已成为一项至关重要的任务。对于网络管理员和 IT 专业人士来说，掌握局域网 (LAN) 内所有电脑的软件和硬件清单至关重要。这份信息可以帮助您：

电脑维护与管理： 了解软件和硬件配置，进行有效的维护和管理。
安全保障： 识别和修复潜在漏洞，防止网络威胁。
软件许可合规： 确保组织内所有电脑拥有合法的软件许可。
IT 资产管理： 跟踪 IT 资产，合理决策。
电脑升级和更换： 准确确定需要更新的硬件和软件。

VBS 脚本：简单易用的解决方案

VBScript（Visual Basic Script）是一种解释型脚本语言，因其简单性、跨平台兼容性和与 Windows 系统的深度集成而广受欢迎。借助 VBS 脚本，您可以轻松查询局域网内电脑的软件和硬件清单。

查询局域网内电脑清单的 VBS 脚本

以下 VBS 脚本将指导您完成查询过程：

' 导入必要的库
Dim objNetwork, objComputer, colComputers

' 创建网络对象
Set objNetwork = CreateObject("WScript.Network")

' 获取所有电脑的集合
Set colComputers = objNetwork.EnumComputerNames()

' 遍历每个电脑
For Each objComputer In colComputers
  ' 获取电脑名称
  strComputerName = objComputer

  ' 显示电脑名称
  WScript.Echo "电脑名称：" & strComputerName

  ' 创建 WMI 对象
  Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2")

  ' 查询软件信息
  Set colSoftware = objWMIService.ExecQuery("Select * From Win32_Product")

  ' 显示软件信息
  WScript.Echo "已安装的软件："
  For Each objSoftware In colSoftware
    WScript.Echo "  " & objSoftware.Name & " - " & objSoftware.Version
  Next

  ' 查询硬件信息
  Set colHardware = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")

  ' 显示硬件信息
  WScript.Echo "硬件信息："
  For Each objHardware In colHardware
    WScript.Echo "  操作系统：" & objHardware.Caption & " - " & objHardware.Version
    WScript.Echo "  处理器：" & objHardware.Processor
    WScript.Echo "  内存：" & objHardware.TotalPhysicalMemory / 1024 & " MB"
    WScript.Echo "  硬盘：" & objHardware.TotalPhysicalMemory / 1024 / 1024 & " GB"
  Next
Next

运行 VBS 脚本

将脚本复制到文本文件中，并以 .vbs 为扩展名保存。
打开命令提示符，导航到保存脚本的目录。
输入以下命令运行脚本：

cscript <script_name>.vbs

常见问题解答

我无法查询某些电脑的清单，怎么办？

确保您拥有对这些电脑的管理权限。如果没有，您将无法访问其信息。
脚本没有显示任何信息，是怎么回事？

检查脚本中的语法错误，并确保您拥有所需的访问权限。还可以尝试在具有管理权限的电脑上运行脚本。
我如何定制脚本以获取更多信息？

修改 Win32_Product 和 Win32_ComputerSystem 查询语句以包括所需的信息。有关更多详细信息，请参阅 Windows 管理规范 (WMI) 文档。
我可以将脚本与其他工具集成吗？

是的，VBS 脚本可以与其他脚本语言和应用程序集成。例如，您可以将结果导出到 CSV 文件，或使用其他工具进行进一步分析。
如何自动化脚本执行？

使用任务计划程序或 PowerShell 脚本定期运行 VBS 脚本。这将确保始终掌握最新信息。