使用 VBS 调用 WMI 遍历搜索硬盘文件并计数的方法

2023-12-29 23:43:41

使用 VBScript 和 WMI 轻松统计硬盘文件

在管理和维护 Windows 系统时，经常需要查找和统计特定文件在硬盘上的分布情况。借助 VBScript 和 WMI 的强大功能，您可以轻松实现此项任务。本文将深入探讨如何使用 VBScript 调用 WMI 遍历搜索硬盘文件并统计其出现次数。

VBScript 与 WMI 简介

VBScript 是一种 Microsoft 开发的脚本语言，专为与 Windows 环境交互而设计。WMI（Windows Management Instrumentation）是 Windows 系统的一个管理框架，提供了丰富的接口和方法来访问系统信息和资源。

原理

通过 VBScript 调用 WMI，我们可以访问硬盘驱动器的相关信息，例如驱动器的盘符、卷标和文件系统类型。然后，我们可以使用 WMI 的 Win32_LogicalDisk 类来遍历指定驱动器上的所有文件和文件夹。通过循环遍历的方式，我们可以统计指定文件在硬盘上的出现次数，从而实现文件计数的功能。

代码实现

以下是使用 VBScript 调用 WMI 遍历搜索硬盘文件并计数的代码实现：

' 创建 WMI 服务对象
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' 获取所有逻辑磁盘
Set objDrives = objWMIService.ExecQuery("Select * From Win32_LogicalDisk")

' 遍历所有逻辑磁盘
For Each objDrive In objDrives
    ' 检查是否是硬盘驱动器
    If objDrive.DriveType = 3 Then
        ' 创建文件系统对象
        Set objFolder = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & objDrive.DeviceID & "\root\cimv2")

        ' 获取指定驱动器上的所有文件
        Set objFiles = objFolder.ExecQuery("Select * From Win32_File Where Path='" & objDrive.DeviceID & "\'")

        ' 统计指定文件出现次数
        Dim strFileName = "target-file.txt"
        Dim intCount = 0

        For Each objFile In objFiles
            If objFile.FileName = strFileName Then
                intCount = intCount + 1
            End If
        Next

        ' 输出结果
        WScript.Echo "Drive " & objDrive.DeviceID & ": " & intCount & " " & strFileName & " files found."
    End If
Next