中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 17:18 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 文件监控VBS
可打印版本 　909 / 3
第1楼　dongheng 发表于 2007-05-13 11:52
初级用户　发帖 13　积分 45
文件监控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/technet/community/scriptcenter/default.mspx
但这个脚本只能弹出对话诓,我想加入把文件创建的情况记入一文本的功能,应怎麽改?请高手指教!

[ Last edited by dongheng on 2007-5-13 at 11:56 AM ]
第2楼　slore 发表于 2007-05-13 13:12
铂金会员　发帖 2,478　积分 5,212
Wscript.Echo objLatestEvent.TargetInstance.PartComponent

objLatestEvent.TargetInstance.PartComponent这个就是提示信息。。。要保存起来。。。创建fso对象就可以了。。。8是追加模式
第3楼　dongheng 发表于 2007-05-26 17:43
初级用户　发帖 13　积分 45
如加以下来创建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 ]
第4楼　tttest 发表于 2007-05-28 16:45
新手上路　发帖 8　积分 17
详细说明
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023