Listing 1.

Set WS = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

DateString = CurrentDate()
ServerName = "HOFS01"
Purge = True
on error resume next
StartTime = Now
Output "---------------------------------"
OutPut "Started at: " + CStr(Now)
Output ""
Set System = GetObject("winmgmts:{(Backup,Security)}\\" + ServerName + _
"\root\CIMV2")
If Err.Number = 0 Then
  Set colLogs = System.ExecQuery("select * from Win32_NTEventLogFile",,&H30)
For Each refLog In colLogs
      LogName = ServerName+ "_" + LogFileName(refLog.LogFileName) + _
 "_" + DateString

  If FSO.FileExists("C:\Logs\" + LogName + ".evt") Then _
 FSO.DeleteFile("C:\Logs\" + LogName + ".evt")
  If Purge Then
     RetVal = reflog.ClearEventlog("C:\Logs\" + LogName + ".evt")
     Else
       RetVal = reflog.BackupEventlog("C:\Logs\" + LogName + ".evt")
     End If
     If RetVal = 0 Then
       Output vbTab + "Log was archived in .evt format: " + LogName + _
 ".evt"
       If Purge Then Output vbTab + "All events were cleared from _
 the log"

     Else
        Output vbTab + "Error while archiving in .evt format."
     End If
  Next
Else
  Output vbTab + "Failed connect to the server"
End If
Set colLogs = Nothing
Set refLogs = Nothing
Set System = Nothing
Output "----------------------------------------"
OutPut "Finished at: " + CStr(Now)
Output ""
Output ""
Set WS = Nothing
FullLog.Close
Set FullLog = Nothing
Set FSO = Nothing
Function CurrentDate
  Today = Date
  If Month(Today) < 10 Then
    CurrentDate = "0" + CStr(Month(Today))
  Else
    CurrentDate = CStr(Month(Today))
  End If
  If Day(Today) < 10 Then
    CurrentDate = CurrentDate + "0" + CStr(Day(Today))
  Else
    CurrentDate = CurrentDate + CStr(Day(Today))
  End If
  CurrentDate = CurrentDate + CStr(Year(Today))
  If Hour(Time) < 10 Then
    CurrentDate = CurrentDate + "0" + CStr(Hour(Time))
  Else
    CurrentDate = CurrentDate + CStr(Hour(Time))
  End If
End Function
Function LogFileName(LogName)
  Select Case LogName
    Case "Application"
      LogFileName = "app"
    Case "Directory Service"
      LogFileName = "dir"
    Case "DNS Server"
      LogFileName = "dns"
    Case "File Replication Service"
      LogFileName = "rep"
    Case "Security"
      LogFileName = "sec"
    Case "System"
      LogFileName = "sys"
  End Select
End Function
Sub Output(Text)
  wscript.echo text
  FullLog.writeline text
End Sub