Trække oplysninger ud fra Event Log

Tags:    visual-basic

Hej

Jeg skal lave et program der kan trække fejlmeddelelserne ud af event log'en i en w2k server.. De skal senere kunne sendes som en sms, men det er ikke vigtigt lige nu.

Er der nogen der ved hvordan jeg hiver disse oplysninger ud?





3 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 7 karma
Sorter efter stemmer Sorter efter dato
Jeg har siddet og rodet med lidt engang, fordi jeg skulle lave et script der kunne logge login/out og startup/shutdown.

Jeg nåede at skrive et par småting mens jeg lærte VBScript.

Følgende vbscript giver dig navnene på de forskellige log-objekter.

----------------------------------------------------------------------------------

strCurrentEventLog = ""

Set objWMIService = GetObject("winmgmts:")

Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent")

For Each objLoggedEvent in colLoggedEvents
If strCurrentEventLog <> objLoggedEvent.Logfile Then
WScript.Echo "Event log: " & objLoggedEvent.Logfile
strCurrentEventLog = objLoggedEvent.Logfile
End If
Next

WScript.Echo "finished"

-----------------------------------------------------------------------------------------

Dette script henter logon information ud af security log filen:

------------------------------------------------------------------------------------------

NewLine = Chr(13) + Chr(10)

logon=528

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Security)}!\\\\")

Set events = objWMIService.ExecQuery("Select * from Win32_NTLogEvent Where Logfile='Security'")

For Each e in events
If e.EventCode = logon Then
Wscript.Echo "Event code: " & e.EventCode & NewLine & _
"Event type: " & e.Type & NewLine & _
"Event source name: " & e.SourceName & NewLine & _
"Event category: " & e.CategoryString & NewLine & _
"Event Computer name: " & e.ComputerName & NewLine & _
"Event user name: " & e.User & NewLine & _
"Event time: " & e.TimeWritten
End If
Next


Wscript.Echo "Finished"

------------------------------------------------------------------------------------------

Ovenstående kan måske give dig lidt inspiration. Herudover vil jeg anbefale dig at læse følgende:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwmi/html/mngwmi.asp


Håber det hjælper,

Mvh.,

Jakob Justsen


Hej

Jeg skal lave et program der kan trække fejlmeddelelserne ud af event log'en i en w2k server.. De skal senere kunne sendes som en sms, men det er ikke vigtigt lige nu.

Er der nogen der ved hvordan jeg hiver disse oplysninger ud?






Hej

Jeg skal lave et program der kan trække fejlmeddelelserne ud af event log'en i en w2k server.. De skal senere kunne sendes som en sms, men det er ikke vigtigt lige nu.

Er der nogen der ved hvordan jeg hiver disse oplysninger ud?



Hej
Det er ikke lige til, men tjek denne side http://www.vbadmincode.btinternet.co.uk/winnt.htm

GooseMan[Redigeret d. 16/05-02 21:47:08 af Lars Bjerre-Harpøth]



Hej

Jeg skal lave et program der kan trække fejlmeddelelserne ud af event log'en i en w2k server.. De skal senere kunne sendes som en sms, men det er ikke vigtigt lige nu.

Er der nogen der ved hvordan jeg hiver disse oplysninger ud?



Prøv også at checke dette Vb-projekt:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=22578&lngWId=1

MVH
Niels K. Nielsen




t