中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 文件监控VBS

dongheng
初级用户

积分 45
发帖 13
注册 2007-4-15
状态离线

『楼主』: 文件监控VBS

这个是监控文件创建的:
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:\\\\windows""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop
这个VBS来自微软的脚本中心,那里有不少脚本,都不错.https://www.microsoft.com/china/ ... center/default.mspx
但这个脚本只能弹出对话诓,我想加入把文件创建的情况记入一文本的功能,应怎麽改?请高手指教!

[ Last edited by dongheng on 2007-5-13 at 11:56 AM ]

2007-5-13 11:52

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

Wscript.Echo objLatestEvent.TargetInstance.PartComponent

objLatestEvent.TargetInstance.PartComponent这个就是提示信息。。。要保存起来。。。创建fso对象就可以了。。。8是追加模式

2007-5-13 13:12

dongheng
初级用户

积分 45
发帖 13
注册 2007-4-15
状态离线

『第 3 楼』:

如加以下来创建fso对象:
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set file=fso.createtextfile("out.txt")
file.write objLatestEvent.TargetInstance.PartComponent
file.close
在每次循环都新创建out.txt,根本起不到记录作用.
如何解决?

[ Last edited by dongheng on 2007-6-23 at 06:21 PM ]

2007-5-26 17:43

tttest
新手上路

疯中之竹

积分 17
发帖 8
注册 2007-5-11
状态离线

『第 4 楼』:

详细说明

2007-5-28 16:45

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

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

论坛跳转: