vbscript for backup all event logs and delete them afterwards

view plainprint?

1. Option Explicit  
2. dim strComputer  
3. dim objWMIService  
4. dim colLogFiles  
5. dim objLogfile  
6. dim errBackupLog  
7.   
8. strComputer = "." 'IP Address or Name  
9. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & strComputer & "\root\cimv2")  
10.   
11. Call eventlogbackup("Application")  
12. Call eventlogbackup("System")  
13. Call eventlogbackup("Security")  
14. 'Call eventlogbackup("DNS Server") Define further logs here  
15.   
16. Function eventlogbackup(logtype)  
17. Set colLogFiles = objWMIService.ExecQuery ("SELECT * FROM Win32_NTEventLogFile WHERE LogFileName='" &logtype &"'")  
18. For Each objLogfile in colLogFiles  
19.    errBackupLog = objLogFile.BackupEventLog("\\server\eventlogs\" &strComputer &"\" &logtype &".evt")  
20.    If errBackupLog <> 0 Then  
21.       Wscript.Echo "The " &logtype &" event log could not be backed up."  
22.    Else  
23.       objLogFile.ClearEventLog()  
24.       Wscript.Echo "The " &logtype &" event log is backed up."  
25.    End If  
26. Next  
27. End Function  

Option Explicit
dim strComputer
dim objWMIService
dim colLogFiles
dim objLogfile
dim errBackupLog

strComputer = "." 'IP Address or Name
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & strComputer & "\root\cimv2")

Call eventlogbackup("Application")
Call eventlogbackup("System")
Call eventlogbackup("Security")
'Call eventlogbackup("DNS Server") Define further logs here

Function eventlogbackup(logtype)
Set colLogFiles = objWMIService.ExecQuery ("SELECT * FROM Win32_NTEventLogFile WHERE LogFileName='" &logtype &"'")
For Each objLogfile in colLogFiles
   errBackupLog = objLogFile.BackupEventLog("\\server\eventlogs\" &strComputer &"\" &logtype &".evt")
   If errBackupLog <> 0 Then
      Wscript.Echo "The " &logtype &" event log could not be backed up."
   Else
      objLogFile.ClearEventLog()
      Wscript.Echo "The " &logtype &" event log is backed up."
   End If
Next
End Function