Logs Event Logs List Event Log Properties , WMI
' List Event Log Properties
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objInstalledLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile")
For each objLogfile in objInstalledLogFiles Wscript.Echo "Name: " & objLogfile.LogFileName Wscript.Echo "Maximum Size: " & objLogfile.MaxFileSize If objLogfile.OverWriteOutdated > 365 Then Wscript.Echo "Overwrite Outdated Records: Never." ElseIf objLogfile.OverWriteOutdated = 0 Then Wscript.Echo "Overwrite Outdated Records: As needed." Else Wscript.Echo "Overwrite Outdated Records After: " & _ objLogfile.OverWriteOutdated & " days" & End If Next
|
VbsEdit includes all these samples!
Download Now!
Version 5.4.1 - This package includes VbsEdit 32-bit, VbsEdit 64-bit, HtaEdit 32-bit and HtaEdit 64-bit. The evaluation version never expires.
Home
Buy Now
HtaEdit
Support
Video
What's new ?
|