イベントログ書込みについて

環境/言語:[VB.NET]
分類:[.NET]

ローカルマシンにイベントログを書き込みたいのですが、
イベントビューアーの「アプリケーション」「セキュリティー」「システム」とは別にひとつ作り書きたいのですが、うまくいきません。。。

Dim sSource As String
Dim sLog As String
Dim sEvent As String

sSource = "TestSystem"
sLog = "テストシステム"
sEvent = "Eventです"
If Not EventLog.SourceExists(sLog, ".") Then
EventLog.CreateEventSource(sSource, sLog, ".")
End If

Dim myLog As New EventLog
myLog.Source = sSource
myLog.Log = sLog
myLog.WriteEntry(sLog, "文字列", EventLogEntryType.Error)

ご教授願います。

初めまして。

■No17536に返信(らららさんの記事)
> If Not EventLog.SourceExists(sLog, ".") Then
> EventLog.CreateEventSource(sSource, sLog, ".")
> End If

SourceExists で使用しているソース名と、
CreateEventSource で使用しているソース名が
異なっているのではないでしょうか？

ご参考URL: http://support.microsoft.com/default.aspx?scid=kb;ja;301279

外していたら、ごめんなさい。m(__)m