■Topics

---

よくデフォルト値ではオーバーしがちなイベントログの最大ログサイズを変更するサンプルです。Win32_NTEventlogFileクラスを使用します。

---

■Sample Code

---

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

---

■Comment

---

ここではアプリケーションログの最大ログサイズを1MBに変更するようサンプルを作成してあります。OverWriteOutDatedプロパティを使用すればログの上書きに関する設定も可能です。

---