This vbscript collects all of the windows event logs in the binary (*.evt) format.

EventLogBinary.vbs

' default path to collect event log.
path = "C:\path\to\eventlog"

' arg0 is path
Dim oParam
set oParam = WScript.Arguments
If oParam.Count > 0 Then
  path = oParam(0)
End If

' collecting event log...
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
 strBackupLog = objLogFile.BackupEventLog _
 (path & "\" & objLogFile.LogFileName & ".evt")
Next