today=Date
strFile=Replace(today,"/","") & ".txt"

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.CreateTextFile(strFile,True)

Set objWMI=GetObject("WinMgmts:{(Security)}//")
Set objRef=objWMI.ExecQuery("Select * from win32_NTEventLogFile")

For Each file In objRef
    objFile.Writeline file.LogFileName
    objFile.Writeline "  " & file.name
    objFile.Writeline "  Size:" & file.FileSize & " bytes"
    objFile.Writeline "  Records:" & file.NumberOfRecords
Next

objFile.Close
WScript.Echo "Event log status logged to " & strFile