中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 出自微软的 文件监视 脚本 vbs 有不足之处 忘 有人修改
作者:
标题: 出自微软的 文件监视 脚本 vbs 有不足之处 忘 有人修改 上一主题 | 下一主题
mayu2004
初级用户





积分 109
发帖 40
注册 2007-12-22
状态 离线
『楼 主』:  出自微软的 文件监视 脚本 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下

希望有人能完善下

2008-1-20 21:49
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023