イベントログの内容を取得する: Win32_NTLogEvent
■Topics
イベントログの内容を取得するサンプルです。Win32_NTLogEventクラスを使用します。
Private Sub Command1_Click()
Dim EveSet As SWbemObjectSet
Dim Eve As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set EveSet = Service.ExecQuery _
("Select * From Win32_NTLogEvent Where Logfile='System' " & _
"And TimeGenerated > '2003/06/25'")
For Each Eve In EveSet
MesStr = MesStr & Eve.EventCode & ":" & Eve.Message
Next
MsgBox "指定した期間内のイベントログの内容です。" & vbCrLf & _
vbCrLf & MesStr
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
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set EveSet = Service.ExecQuery _
("Select * From Win32_NTLogEvent Where Logfile='System' " & _
"And TimeGenerated > '2003/06/25'")
For Each Eve In EveSet
MesStr = MesStr & Eve.EventCode & ":" & Eve.Message
Next
MsgBox "指定した期間内のイベントログの内容です。" & vbCrLf & _
vbCrLf & MesStr
Set EveSet = Nothing
Set Eve = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
実行すると2003年6月25日以降に発生したシステムのイベントログを全て表示します。WQLで様々な条件を指定することで取得したい内容だけのログを取り出すことが可能です。
分類：Categoryプロパティ
イベントID：EventCodeプロパティ
ソース：SourceNameプロパティ
種類：EventTypeプロパティ
EventTypeプロパティで帰ってくる値は以下のような意味があるようです。
1: エラー
2: 警告
3: 情報
4: 監査成功
5: 監査失敗
Win32_NTLogEvent クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。