出自微软的文件监视脚本 vbs 有不足之处忘有人修改 - 中国DOS联盟论坛

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

------------------
c:\\\\scripts 要监视的文件监视c:\\scripts 下所有文件的创建

这个程序有个问题就是
不能监视文件夹的创建

这个程序必须放在 c：\windows \system32 x下

希望有人能完善下

第1楼　mayu2004	发表于 2008-01-20 21:49
初级用户　发帖 40　积分 109
出自微软的文件监视脚本 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 ------------------ c:\\\\scripts 要监视的文件监视c:\\scripts 下所有文件的创建这个程序有个问题就是不能监视文件夹的创建这个程序必须放在 c：\windows \system32 x下希望有人能完善下