Jump to content
Sign in to follow this  
eismanhobbit

Eventlog von anderem Server kopieren

Recommended Posts

Hallo

vielleicht habe ich hier mehr Glück - hoffentlich !!!

 

ich weiß nicht mehr weiter. Ich habe ein Script, das mir ein Eventlog auf einem Win2000Server ausliest und auf einem lokalen Pfad ablegt.

Das funktioniert bestens.

Hier das Script welches funktioniert.

 

Code:

' Dieser Code archiviert ein Ereignisprotokoll in der angegebenen Datei.

' ------ Skript-Konfiguration ------

strLog = "application" ' z.B. application

strdate = date

strBackupFile = "c:\app_back.evt" ' z.B. c:\app_back.evt

strServer = "." ' z.B. servername (verwenden Sie "." für den lokalen Server)

' ------ ENDE DER KONFIGURATION ------

set objWMI = GetObject(_

"winmgmts:{impersonationLevel=impersonate,(Backup)}!\\" & _

strServer & "\root\cimv2")

set colLogs = objWMI.ExecQuery("Select * from Win32_NTEventlogFile Where " & _

" Logfilename = '" & strLog & "'")

if colLogs.Count <> 1 then

WScript.Echo "Fataler Fehler. Anzahl gefundener Ereigniosprotokolle: " & colLogs.Count

WScript.Quit

end if

for each objLog in colLogs

objLog.BackupEventlog strBackupFile

next

 

 

So, nun möchte ich das Script so schreiben, das er das Log von einem anderen Server holt

Diese Script fun ktioniert nicht - aber es kommt auch keine Fehlermeldung - es passiert einfach nichts.

Ich habe einfach strServer = "servername" geändert. Auch mit dem fullqualified Domainname habe ich es versucht.

An den Berechtigungen kann es nicht liegen, da ich das Log dort per Hand auslesen kann.

Kann mir jemand helfen ??

 

Code:

' Dieser Code archiviert ein Ereignisprotokoll in der angegebenen Datei.

' ------ Skript-Konfiguration ------

strLog = "application" ' z.B. application

strdate = date

strBackupFile = "c:\app_back.evt" ' z.B. c:\app_back.evt

strServer = "servername" ' z.B. servername (verwenden Sie "." für den lokalen Server)

' ------ ENDE DER KONFIGURATION ------

set objWMI = GetObject(_

"winmgmts:{impersonationLevel=impersonate,(Backup)}!\\" & _

strServer & "\root\cimv2")

set colLogs = objWMI.ExecQuery("Select * from Win32_NTEventlogFile Where " & _

" Logfilename = '" & strLog & "'")

if colLogs.Count <> 1 then

WScript.Echo "Fataler Fehler. Anzahl gefundener Ereigniosprotokolle: " & colLogs.Count

WScript.Quit

end if

for each objLog in colLogs

objLog.BackupEventlog strBackupFile

next

 

 

Was leider auch nicht funktioniert ist das Lokale Logfile auf einer Share abzulegen.

Hier das Script

 

Code:

' Dieser Code archiviert ein Ereignisprotokoll in der angegebenen Datei.

' ------ Skript-Konfiguration ------

strLog = "application" ' z.B. application

strdate = date

strBackupFile = "\\servername\share\app_back.evt" ' z.B. c:\app_back.evt

strServer = "." ' z.B. servername (verwenden Sie "." für den lokalen Server)

' ------ ENDE DER KONFIGURATION ------

set objWMI = GetObject(_

"winmgmts:{impersonationLevel=impersonate,(Backup)}!\\" & _

strServer & "\root\cimv2")

set colLogs = objWMI.ExecQuery("Select * from Win32_NTEventlogFile Where " & _

" Logfilename = '" & strLog & "'")

if colLogs.Count <> 1 then

WScript.Echo "Fataler Fehler. Anzahl gefundener Ereigniosprotokolle: " & colLogs.Count

WScript.Quit

end if

for each objLog in colLogs

objLog.BackupEventlog strBackupFile

next

 

 

Danke schonmal vorab

eismanhobbit

Share this post


Link to post

Sorry, sorry, sorry

 

tut mir leid - aber ich komme nicht weiter.

Mit ein paar Tools habe ich mich beschäftigt !!

Mit Logparser kann man kein Eventlog löschen und mit Scriptiomatic komme ich nicht klar !!

 

Mittlerweile habe ich es soweit hinbekommen das Logfile auf einem entfernten Server abzulegen aber der Befehl " strServer = "nippon" " funktioniert nur lokal also " strServer = "." "

 

Kann mir denn niemand helfen

 

eismanhobbit

Share this post


Link to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Werbepartner:



×
×
  • Create New...