' Kod tworzy zdarzenie w dzienniku Aplikacja
' ------ KONFIGURACJA SKRYPTU ------
strServer = "\\<NazwaSerwera>" ' np. fs01 
strDescr = "<OpisZdarzenia>"   ' np. Ponowne uruchomienie serwera po zainstalowaniu dodatku Service Pack
' ------ KONIEC KONFIGURACJI ---------
Const EVENT_SUCCESS = 0
Const EVENT_ERROR   = 1 
Const EVENT_WARNING = 3
Const EVENT_INFO    = 4

set objWSHShell = Wscript.CreateObject("Wscript.Shell")
boolRC = objWSHShell.LogEvent(EVENT_INFO, strDescr, strServer)

if boolRC = TRUE then
   WScript.Echo "Operacja tworzenia zdarzenia zostaa zakoczona powodzeniem."
else
   WScript.Echo "Utworzenie zdarzenia nie powiodo si."
end if
