Shawn and I worked on this code a long time ago and could not get it to work on 2000. It would only work on XP.

Well, Shawn got it to work with 2000/XP now.


$wbemFlagUseAmendedQualifiers = &020000
$strComputer = "."

$objWMIService = GetObject("winmgmts:" +
    "{impersonationLevel=impersonate,(Security)}!\\" +
    $strComputer + "\root\cimv2")
$colNTEventLogFiles = $objWMIService.ExecQuery
    ("SELECT * FROM Win32_NTEventLogFile")

For each $objNTEventLogFile in $colNTEventLogFiles
    $objNTEventLogFile.MaxFileSize = 16750000
    $objNTEventLogFile.OverwriteOutDated = 0
    $= $objNTEventLogFile.Put_($wbemFlagUseAmendedQualifiers)
Next