Does anyone know how to convert this .VBS script to KiX?

I can't seem to get the UseAmendedQualifiers portion of the script to work correctly in KiX.

http://msdn.microsoft.com/library /default.asp?url=/library/en-us/cpref/html/frlrfsystemmanagementputoptionsclassuseamendedqualifierstopic.asp


' SetEventLogValues.vbs

Const wbemFlagUseAmendedQualifiers = &h20000
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
    "{impersonationLevel=impersonate,(Security)}!\\" & _
    strComputer & "\root\cimv2")
Set colNTEventLogFiles = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NTEventLogFile")
For each objNTEventLogFile in colNTEventLogFiles
    objNTEventLogFile.MaxFileSize = 16750000
    objNTEventLogFile.OverwriteOutDated = 0
    objNTEventLogFile.Put_ wbemFlagUseAmendedQualifiers
Next


[ 17. May 2003, 03:24: Message edited by: NTDOC ]