标题: 出自微软的 文件监视 脚本 vbs 有不足之处 忘 有人修改 [打印本页]
作者: mayu2004 时间: 2008-1-20 21:49 标题: 出自微软的 文件监视 脚本 vbs 有不足之处 忘 有人修改
http://www.microsoft.com/china/technet/community/scriptcenter/filefolder/scrff44.mspx
出处
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""c:\\\\scripts""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop
------------------Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""c:\\\\scripts""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop
c:\\\\scripts 要 监视 的 文件 监视c:\\scripts 下所有文件 的创建
这个程序有个问题 就是
不能 监视 文件夹的 创建
这个程序 必须放在 c：\windows \system32 x下
希望有人能完善下