イベントログの内容を保存する: Win32_NTEventLogFile
■Topics
イベントログの内容を保存するサンプルです。Win32_NTLogEventFileクラスを使用します。
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
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
実行するとイベントログの中のアプリケーションログをcドライブにapplicationlog.evtという名前で保存します。もちろんアプリケーションログ以外にもソース上のWQLにてクエリー条件を変更すれば保存可能です。LogFileNameプロパティをシステムログであれば「System」、セキュリティログであれば「Security」を指定します。
以前PCをシャットダウンサンプルで紹介したとおり今回の保存作業に於いても特権が必要になります。SWbemSecurityオブジェクトに対してwbemPrivilegeBackup定数でバックアップを行う特権があることを明示的に指定し、WMIへ接続を行ったうえでイベントログの保存を行っています。
Win32_NTEventLogFile クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。