saatzr
Goto Top

ExecQuery auf NTLogEvent

Hallo wenn ich folgendes Script auf meinen Rechner im Firmennetz laufen lassen wird nichts ausgegeben:

Sub test()
strComputer = "vwkwwocwo161"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent " _
& "Where Logfile = 'security'")

zahl = 1
For Each objEvent In colLoggedEvents
Cells(zahl, 1) = "Category: " & objEvent.Category
Cells(zahl, 2) = "Computer Name: " & objEvent.ComputerName
Cells(zahl, 3) = "Event Code: " & objEvent.EventCode
Cells(zahl, 5) = "Record Number: " & objEvent.RecordNumber
Cells(zahl, 6) = "Source Name: " & objEvent.SourceName
Cells(zahl, 7) = "Time Written: " & objEvent.TimeWritten
Cells(zahl, 8) = "Event Type: " & objEvent.Type
Cells(zahl, 9) = "User: " & objEvent.User
zahl = zahl + 1
Next
End Sub


wenn ich das gleich von meinen Computer auf einen andren Rechner aus führe klappt es.
Und wenn ich es von einen andren Computer auf meinen Rechner ausführe klappt es auch.
Es funktioniert aber nur nicht an dem Rechner wo man grade ist!!!

Wenn ich security gegen "application oder " system" eintausche funktioniert das ganze auch Lokal auf dem Rechner!

Bitte helft mir ich bin schon seit 3 Tagen am rumveruschen.

Content-ID: 113172

Url: https://administrator.de/forum/execquery-auf-ntlogevent-113172.html

Ausgedruckt am: 24.12.2024 um 02:12 Uhr