如何用vba代码清除电脑中的全部系统事件记录？

作者：绿色风分类：时间：2022-08-17 浏览：101

楼主
kevinchengcw

Q: 如何用vba代码清除电脑中的全部系统事件记录？
A: 代码如下：

Sub test()
Dim Arr() As String, Log, N%
Arr = Split("application,system,security", ",") '定义事件类型列表
For N = LBound(Arr) To UBound(Arr) '循环列表内容
For Each Log In GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\.\root\cimv2").ExecQuery("Select * from Win32_NTEventLogFile where LogFileName=""" & Arr(N) & """") '循环提取事件对应项
Log.ClearEventLog '清除当前循环到的事件内容
Next Log
Next N
End Sub

有些人会明白这个功能的意义

2楼
xmyjk

K哥威武啊！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表