如何向事件查看器中写入事件及相关信息？

下面的代码演示了如何向NT/2000的事件查看器中的应用程序这一项中加入事件，如果你使用的win98系统，事件会加入到系统目录下的wsh.log目录下。

LogEvent(intType, strMessage [,strTarget])

上面的intType是一个表示事件类型的整数，strMessage表示事件内容，strTarget表示写入的目录机，在Win98下些选项被忽略。

而下面的代码正是向一台机器的事件查看器中写入事件：

#DEFINE TARGET_SYSTEM SUBSTR(SYS(0),1,ATC('#',SYS(0))-1)
#DEFINE SUCCESS 0
#DEFINE ERROR 1
#DEFINE WARNING 2
#DEFINE INFORMATION 4
#DEFINE AUDIT_SUCCESS 8
#DEFINE AUDIT_FAILURE 16
WshShell = CreateObject("WScript.Shell")
*!* Logevent returns .t. for SUCCESS for .f. for FAILURE
?WshShell.LogEvent(SUCCESS, "Logon Script Completed Successfully")
WshShell.LogEvent(ERROR, "Logon Script Completed Successfully")
WshShell.LogEvent(WARNING, "We are getting low on disk space!!")
WshShell.LogEvent(INFORMATION, "Start nightly backup")
WshShell.LogEvent(AUDIT_SUCCESS, "Checksum Success!!")
WshShell.LogEvent(AUDIT_FAILURE, "Checksum Failure")
WshShell.LogEvent(AUDIT_FAILURE, "Checksum Failure",TARGET_SYSTEM)
WshShell=.NULL.