Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

ExecQuery auf NTLogEvent

Frage Microsoft

Mitglied: Saatzr

Saatzr (Level 1) - Jetzt verbinden

03.04.2009, aktualisiert 12:07 Uhr, 2314 Aufrufe

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.
Heiß diskutierte Inhalte
Router & Routing
Tipps für Router (ca. 100 clients, VPN) (18)

Frage von oel-auge zum Thema Router & Routing ...

Windows 7
BOOTMGR is missing (auch nach bootrec -RebuildBcd) (16)

Frage von Mipronimo zum Thema Windows 7 ...

TK-Netze & Geräte
gelöst Convert von TAPI auf CAPI gesucht (13)

Frage von StefanKittel zum Thema TK-Netze & Geräte ...