中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-07 07:21

欢迎新会员 Atticus97　 RSS
共 48,040 主题排行 / 350,125 发帖 / 今日 1 篇 / 48,252 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 出自微软的文件监视脚本 vbs 有不足之处忘有人修改查看 723　回复 0

楼主 出自微软的文件监视脚本 vbs 有不足之处忘有人修改发表于 2008-01-20 21:49　·　中国黑龙江哈尔滨联通

mayu2004

初级用户

★

积分 109
发帖 40
注册 2007-12-22 15:41
18年会员
UID 106471
性别男

状态离线

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下

希望有人能完善下

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: