欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

新手,们帮帮忙,关于导出系统日志

更新时间: 2014-01-05 01:53:05 责任编辑: Author_N1

 

新手,大虾们帮帮忙,关于导出系统日志
VBScript code

strBackupName = aaaaaaaa
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery("Select * from Win32_NTEventLogFile where LogFileName='System'")
For Each objLogfile in colLogFiles
    Wscript.Echo "Time Written: " & objLogfile.TimeWritten
    objLogFile.BackupEventLog("c:\System-" & strBackupName & ".evt")
    objLogFile.ClearEventLog()
Next



提示objLogfile没有TimeWritten属性,另外我想根据时间判断把前30天的System、Application、Security三种系统日志分别导出到三个.evt格式下的文件中。哪位大虾帮下忙

--参考方法--
1,Win32_NTEventLogFile貌似只操作保存日志的文件,不能按具体的事件时间来区别操作吧.
2,要获得具体时间的事件,可以尝试用Win32_NTLogEvent.
3,提示objLogfile没有TimeWritten属性,你可以用下面的代码来遍历类的属性:
VBScript code
    sClassName = "Win32_NTEventLogFile"
For Each x In GetObject("Winmgmts:" & sClassName).Properties_
    WScript.Echo x.Name
Next 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:53:05
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2538/
本文WWW.DOC100.NET DOC100.NET版权所有。