Я далекий от какого либо программирования, нужно просто понять в двух словах, что делает данный скрипт? Code: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate, (Backup, Security)}!\\" _ & strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile") For Each objLogfile in colLogFiles If objLogFile.FileSize > 1 Then strBackupLog = objLogFile.BackupEventLog _ ("D:\scripts\" & objLogFile.LogFileName & ".evt") objLogFile.ClearEventLog() End If Next