Sub WriteToEventLog(ByVal LogName As String, ByVal Message As String) If (Not EventLog.SourceExists(LogName)) Then EventLog.CreateEventSource(LogName, LogName) End If Dim log As New EventLog() log.Source = LogName log.WriteEntry(Message, EventLogEntryType.Error)End Sub希望可以幫到你
{
if (!EventLog.SourceExists("YnaBooking"))
{
EventLog.CreateEventSource("YnaBooking", "Application");
}
EventLog.WriteEntry("YnaBooking", message, EventLogEntryType.Error);
}但需要写入日志的权限~
可以通过修改Machine.Config 的 <processModel> 把userName 属性改为SYSTEM