イベントログの内容を保存する: Win32_NTEventLogFile - WMI Sample (VB)

Private Sub Command1_Click()

Dim EveSet As SWbemObjectSet
Dim Eve As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Security As SWbemSecurity
Dim Ret As Long
Const wbemPrivilegeBackup = 16

Set Locator = New WbemScripting.SWbemLocator
Set Security = Locator.Security_
Security.Privileges.Add wbemPrivilegeBackup
Set Service = Locator.ConnectServer

Set EveSet = Service.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='Application'")

For Each Eve In EveSet

Ret = Eve.BackupEventLog("c:\applicationlog.evt")

Next

If Ret = 0 Then
MsgBox "アプリケーションログの保存に成功しました。"
Else
MsgBox "アプリケーションログの保存に失敗しました。"
End If

Set EveSet = Nothing
Set Eve = Nothing
Set Locator = Nothing
Set Service = Nothing
Set Security = Nothing

End Sub