OpenEventLog

機能
イベントログのハンドルを取得する
Declare Function OpenEventLog Lib "advapi32" Alias "OpenEventLogA" (ByVal
lpUNCServerName As String, ByVal lpSourceName As String) As Long
Declare Function OpenEventLog Lib "advapi32" Alias "OpenEventLogA" (ByVal
lpUNCServerName As String, ByVal lpSourceName As String) As Integer
HANDLE OpenEventLog(
  LPCTSTR lpUNCServerName,
  LPCTSTR lpSourceName
);

引数
lpUNCServerName
サーバーの UNC(Universal Naming Convention)名を表す文字列を指定。
このサーバー上でイベントログが開かる。
lpSourceName
ログファイル名。
次のログファイルを開くことができる。
・アプリケーションログファイル
・セキュリティログファイル
・システムログファイル
・独自に登録しているログファイル

独自のログファイルを指定してその名前が見つからなかった場合は、
イベントログサービスがアプリケーションログファイルを開かれる。
(対応するメッセージと分類の文字列ファイルはない) 
戻り値
正常終了のとき       イベントログのハンドル
エラーのとき 0