イベントログ(10) エントリ登録方法(.NET Framework)

イベントログ書込み(.NET Framework)

.NET Frameworkを使用する方法
.NET Frameworkでは EventLogクラス(System.Diagnostics.EventLogクラス)のWriteEntryメソッドを使用します。 WriteEntryメソッドはパラメータ（メッセージ、イベントの種類など）指定で 10種類の呼び出しができます。
※EventLog コンポーネントのインスタンスを作成したり、手動でイベントソースをレジストリなどに登録する必要はありません。

VB.NETを使用したサンプルを以下に示します。

1) 指定メッセージをイベントの種類「情報」で書き込み
Dim strEventMsg As String = "イベントログに書き込むメッセージ" EventLog.WriteEntry(strEventMsg)

2) 指定イベントソース、メッセージをイベントの種類「情報」で書き込み
Dim strEventSrc As String = "Service1" Dim strEventMsg As String = "イベントログに書き込むメッセージ" EventLog.WriteEntry(strEventSrc, strEventMsg)

3) 指定メッセージ、イベントの種類で書き込み
Dim strEventMsg As String = "イベントログに書き込むメッセージ" Dim evType As EventLogEntryType = EventLogEntryType.Error EventLog.WriteEntry(strEventMsg, evType)

4) 指定イベントソース、メッセージ、イベントの種類で書き込み
Dim strEventSrc As String = "Service1" Dim strEventMsg As String = "イベントログに書き込むメッセージ" Dim evType As EventLogEntryType = EventLogEntryType.Error EventLog.WriteEntry(strEventSrc, strEventMsg, evType)

5) 指定メッセージ、イベントの種類、イベントIDで書き込み
Dim strEventMsg As String = "イベントログに書き込むメッセージ" Dim evType As EventLogEntryType = EventLogEntryType.Error Dim evID As Integer = 4095 EventLog.WriteEntry(strEventMsg, evType, evID)

6) 指定イベントソース、メッセージ、イベントの種類、イベントIDで書き込み
Dim strEventSrc As String = "Service1" Dim strEventMsg As String = "イベントログに書き込むメッセージ" Dim evType As EventLogEntryType = EventLogEntryType.Error Dim evID As Integer = 4095 EventLog.WriteEntry(strEventSrc, strEventMsg, evType, evID)

7) 指定メッセージ、イベントの種類、イベントID、カテゴリで書き込み
Dim strEventMsg As String = "イベントログに書き込むメッセージ" Dim evType As EventLogEntryType = EventLogEntryType.Error Dim evID As Integer = 4095 Dim evCat As Short = 10 EventLog.WriteEntry(strEventMsg, evType, evID, evCat)

8) 指定イベントソース、メッセージ、イベントの種類、イベントID、カテゴリで書き込み
Dim strEventSrc As String = "Service1" Dim strEventMsg As String = "イベントログに書き込むメッセージ" Dim evType As EventLogEntryType = EventLogEntryType.Error Dim evID As Integer = 4095 Dim evCat As Short = 10 EventLog.WriteEntry(strEventSrc, strEventMsg, _ evType, evID, evCat)

9) 指定メッセージ、イベントの種類、イベントID、カテゴリで書き込み(メッセージにバイナリデータを付加)
Dim strEventMsg As String = "イベントログに書き込むメッセージ" Dim evType As EventLogEntryType = EventLogEntryType.Error Dim evID As Integer = 4095 Dim evCat As Short = 10 Dim evBinDt() As Byte = {1,2,3,4,5,6,7,8,9,0} EventLog.WriteEntry(strEventMsg, evType, evID, evCat, evBinDt)

10) 指定イベントソース、メッセージ、イベントの種類、イベントID、カテゴリで書き込み(メッセージにバイナリデータを付加)
Dim strEventSrc As String = "Service1" Dim strEventMsg As String = "イベントログに書き込むメッセージ" Dim evType As EventLogEntryType = EventLogEntryType.Error Dim evID As Integer = 4095 Dim evCat As Short = 10 Dim evBinDt() As Byte = {1,2,3,4,5,6,7,8,9,0} EventLog.WriteEntry(strEventSrc, strEventMsg, _ evType, evID, evCat, evBinDt)

イベントログ表示の仕組み