いまさらではあるがメモ。

LogEvent メソッドを呼び出すと、"書き込みできません" というエラー メッセージが表示されることがあります。

デフォルトでは、アプリケーション イベント ログはゲスト アクセスを制限するように設定されています。匿名ユーザーは Guest グループの一部であるため、このエラー メッセージが表示されます。この問題を回避するには、次の方法のいずれかを使用します。 警告 : レジストリ エディタの使い方を誤ると、深刻な問題が発生することがあります。最悪の場合、オペレーティングシステムの再インストールが必要になることがあります。マイクロソフトは、レジストリエディタの誤用により発生した問題に関しては、一切責任を負わないものとします。レジストリ エディタは、自己の責任においてご使用ください。

  • 次のレジストリ キーを 1 ではなく 0 に設定し、コンピュータを再起動して変更を有効にします。

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\EventLog\Application
名前 : RestrictGuestAccess
型 : REG_DWORD

注 : これによって、すべての Guest アカウントがアプリケーション イベント ログに書き込めるようになります。

  • Guest グループから匿名ユーザーを削除します。
  • この特定のページでは別の匿名ユーザーを使用します。
  • ページまたはアプリケーションに対する匿名アクセスを無効にします。

<%@ Language=VBScript %>


<%
'Use these Constants to designate the type of Event Log.
const SUCCESS = 0
const ERROR = 1
const WARNING = 2
const INFORMATION = 4
const AUDIT_SUCCESS = 8
const AUDIT_FAILURE = 16

dim WshShell
set WshShell = Server.CreateObject("WScript.Shell")
wshshell.Logevent WARNING, "Test Event Log by Windows Script Host!"
set wshshell=nothing
Response.write "Event Logged Successfully by Windows Script Host!"

%>