イベントログの最大ログサイズを設定する: Win32_NTEventlogFile
■Topics
よくデフォルト値ではオーバーしがちなイベントログの最大ログサイズを変更するサンプルです。Win32_NTEventlogFileクラスを使用します。
Private Sub Command1_Click()
Dim EveSet As SWbemObjectSet
Dim Eve As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set EveSet = Service.ExecQuery _
("Select * From Win32_NTEventlogFile Where LogfileName='Application'")
For Each Eve In EveSet
Eve.MaxFileSize = 1048576
Eve.Put_
Next
MsgBox "アプリケーションログの最大ログサイズを変更しました。"
Set EveSet = Nothing
Set Eve = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
Dim EveSet As SWbemObjectSet
Dim Eve As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set EveSet = Service.ExecQuery _
("Select * From Win32_NTEventlogFile Where LogfileName='Application'")
For Each Eve In EveSet
Eve.MaxFileSize = 1048576
Eve.Put_
Next
MsgBox "アプリケーションログの最大ログサイズを変更しました。"
Set EveSet = Nothing
Set Eve = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
ここではアプリケーションログの最大ログサイズを1MBに変更するようサンプルを作成してあります。OverWriteOutDatedプロパティを使用すればログの上書きに関する設定も可能です。
Win32_NTEventlogFile クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。