在Windows环境中，经常需要监控文件系统的变化，比如文件的创建、删除和修改。这可以通过Windows Management Instrumentation（WMI）来实现。WMI是一个强大的管理接口，它提供了一种机制来访问有关操作系统、硬件和应用程序的信息。本文将介绍如何使用VBScript和WMI来监控文件系统事件。
首先，需要连接到本地计算机上的WMI服务。这可以通过获取WMI Scripting API对象来实现。以下是连接到WMI服务的VBScript代码示例：
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
这段代码首先定义了计算机名称（在这里是本地计算机），然后使用GetObject函数获取WMI服务的引用。
接下来，需要创建一个WMI通知查询，以便在特定事件发生时接收通知。例如，可能想要在"C:\Scripts"目录下创建新文件时接收通知。以下是创建此类查询的VBScript代码示例：
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
( _
"Select * From __InstanceCreationEvent Within 5 Where " & _
"Targetinstance Isa 'CIM_DirectoryContainsFile' and " & _
"TargetInstance.GroupComponent='Win32_Directory.Name=""c:\\scripts""'" _
)
这段代码创建了一个查询，用于监控"C:\Scripts"目录下新文件的创建。当新文件被创建时，该查询将返回一个通知。
一旦有了事件查询，就需要处理这些事件。这通常涉及到一个循环，该循环等待并处理每个事件。以下是处理事件的VBScript代码示例：
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop
这段代码使用一个无限循环来等待事件。当事件发生时，它将输出新创建的文件的名称。
除了监控文件创建之外，还可以监控文件的删除和修改。这可以通过修改查询来实现。以下是监控文件删除的VBScript代码示例：
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
( _
"Select * From __InstanceDeletionEvent Within 5 Where " & _
"Targetinstance Isa 'CIM_DirectoryContainsFile' and " & _
"TargetInstance.GroupComponent='Win32_Directory.Name=""c:\\scripts""'" _
)
这段代码创建了一个查询，用于监控"C:\Scripts"目录下文件的删除。当文件被删除时，该查询将返回一个通知。
为了同时监控文件的创建、删除和修改，需要使用一个更通用的事件类。以下是同时监控这三种事件的VBScript代码示例：
strQuery = _
"Select * From __InstanceOperationEvent Within 2 Where Targetinstance Isa 'CIM_DataFile' And " & _
"TargetInstance.Drive='C:' And TargetInstance.Path='\\scripts\\'"
Set colEvents = objWMIService.ExecNotificationQuery(strQuery)