VBSについて教えてください。

質問

VBSについて教えてください。
イベントビューワのプロパティの変更（最大ログサイズとログサイズが最大値に達した時の操作）を以下のスクリプトにて変更したいと思っています。（スクリプトはhttp://www.microsoft.com/japan/technet/scriptcenter/scripts/logs/eventlog/lgevvb16.mspxで公開されているのを利用しています。）

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Security)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile")
For each objLogfile in colLogFiles
strLogFileName = objLogfile.Name
Set wmiSWbemObject = GetObject _
("winmgmts:{impersonationLevel=Impersonate}!\\.\root\cimv2:" _
& "Win32_NTEventlogFile.Name='" & strLogFileName & "'")
wmiSWbemObject.MaxFileSize = 1024000
wmiSWbemObject.OverwriteOutdated = 0
wmiSWbemObject.Put_
Next

WindowsXPSP2では動作したのですが、Windows2000SP4では以下のエラーが発生します。

Windows Script Host
スクリプト：スクリプトの場所
行：14
文字：5
エラー：WBEM_FLAG_USE_AMENDED_QUALIFIERSが指定されていない場合は修正オブジェクトを置くことはできません
コード：80041066
ソース：SWbemObject

VBSについては全く理解できておりません。
Windows2000で動作させるためにんはどこを修正すればいいでしょうか？

回答No.1

SHIMAPEE · ベストアンサー

Windows2000は持っていませんし、WindowsXPでも試していないのですが、興味があったので「WBEM_FLAG_USE_AMENDED_QUALIFIERS」で検索してみました。

http://us.generation-nt.com/wbem-flag-use-amended-qualifiers-help-75951242.html

wmiSWbemObject.Put_(131072)　にして試してみてはどうでしょうか（自己責任で）。

なお、これはVBS（道具）の問題ではなく、WMIのサンプルの問題というのが適切でしょう。

お礼

回答ありがとうございます。
wmiSWbemObject.Put_(131072)にして2000、XPで試してみましたが両方成功しました！！
ありがとうございました。