Windows 10 清空所有系统日志，批处理脚本

villana

系统每天会产生大量冗余日志，日积月累数量也非常可观，磁盘空间占用虽然不多，但也会降低日志查找效率。特别是机械硬盘打开事件查看器会明显感受到因为日志太多而卡顿。本人机器上没有任何优化清理类软件，因此只能手动或者用脚本清理。也分享给同样的玩家。
==
有些日志可能没有权限清理，也可能提示找不到相关日志项目，忽略即可。脚本是根据本人的系统整理的(企业版&Office2016)

需要右键以管理员身份运行。。

清空日志.rar (7.42 KB, 下载次数: 134)

2015-10-27 14:22 上传

下载次数: 134
下载积分: PB币 -1
请勿使用多线程下载工具下载论坛附件！

三人行1970

谢谢分享！！！

zmfu

谢谢分享！！！

MicrosoftLumia

好用吗，先围观一下再说

villana

MicrosoftLumia 发表于 2015-10-27 14:45
好用吗，先围观一下再说

就是清理日志，还有好不好用这一说

dzh9988620

支持个了。

balancircle

多谢批处理分享，若能把这四项“删除”，那就更加完善了。
顺便问下，能否不让Windows自动生成日志？

chenleiming

谢谢分享！！！非常感谢了！

热情似水

谢谢分享！！！

5966

不错，好工具。

xxeitx

试了出错了

villana

xxeitx 发表于 2015-10-27 15:02
试了出错了

有些可能没权限清理，也有可能找不到项目，能找到的肯定都清除了

wuhuili2010

谢谢谢谢谢谢谢谢谢谢

villana

balancircle 发表于 2015-10-27 14:52
多谢批处理分享，若能把这四项“删除”，那就更加完善了。
顺便问下，能否不让Windows自动生成日志？

那个就是对“清理日志”事件的记录，要陷入死循环的。

不想生成日志，可以手动在事件查看器里对一些条目禁用。

qwinq

谢谢分享！！！

tyter

谢谢楼主的热心分享。

fastslz

villana 发表于 2015-10-27 15:07
有些可能没权限清理，也有可能找不到项目，能找到的肯定都清除了

清理日志，vbs效率高得多，而且拥有高权限
我N年前的小作品，删除只是其中一个

1. On Error Resume Next
   
2. Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup, Security)}!\\.\root\cimv2")
   
3. Set aLogFiles = WMI.ExecQuery("SELECT * FROM Win32_NTEventLogFile WHERE LogFileName='Application' or LogFileName='Security' or LogFileName='System'")
   
4. 
   
5. For Each objOS in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
   
6.     If InStr(objOS.Caption,"XP") = 0 Then
   
7.         If WScript.Arguments.length = 0 Then
   
8.             Dim objShell
   
9.             Set objShell = CreateObject("Shell.Application")
   
10.             objShell.ShellExecute "wscript.exe", Chr(34) & _
    
11.             WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
    
12.             Else
    
13.             Call Main()
    
14.             End If
    
15.         Else
    
16.         Call Main()
    
17.     End If
    
18. Next
    
19. 
    
20. Sub Main()
    
21. For Each aLogFile in aLogFiles
    
22. Retval = aLogFile.clearEventlog()
    
23. If RetVal = 0 then
    
24.     Mss=Mss&aLogFile.LogFileName &"已经删除"&vbCrLf
    
25.     Else
    
26.     Mss=Mss&aLogFile.LogFileName &"删除错误"&vbCrLf
    
27. End if
    
28. Next
    
29. Wscript.Echo Mss
    
30. End Sub

复制代码

qqicu

找不到要清空的内容。

villana

qqicu 发表于 2015-10-27 16:01
找不到要清空的内容。

嗯，有些会提示找不到，毕竟我是根据自己的系统整理的（企业版）

sasalemma

这是病，得电。

就像吃饭，上WC。    除非不吃饭。也就是除非系统不运动，运行即有记录。有记录再删，删了再生成，生成再删，删了再生成，生成再删，删了再生成，生成再删，删了再生成，生成再删，删了再生成，生成再删。。。。