VB-Script

[Oliver-kiel 14]

Hallo zusammen,

 

der folgende script laüft bis auf einen kleinen Fehler einwandfrei, und zwar soll er System Apllication und security sichern, aber security wird nie gesichert, und bekommen einen Fehler, gibt es fuer Security vielleicht ne andere bezeichnung ???

 

Danke schon mal im Voraus ..... .... ... .. .

 

strComputer = "localhost"

strDate = Date

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.CreateFolder("C:\" & StrDate)

 

Set objWMIService = GetObject("winmgmts:" _

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

strComputer & "\root\cimv2")

 

Set colLogFilesA = objWMIService.ExecQuery _

("Select * from Win32_NTEventLogFile where LogFileName='Application'")

 

Set colLogFilesS = objWMIService.ExecQuery _

("Select * from Win32_NTEventLogFile where LogFileName='System'")

 

Set colLogFilesSec = objWMIService.ExecQuery _

("Select * from Win32_NTEventLogFile where LogFileName='Security'")

 

For Each objLogfile in colLogFilesA

errBackupLog = objLogFile.BackupEventLog("C:\" & StrDate & "\application.evt")

If errBackupLog <> 0 Then

Wscript.Echo "The Application event log could not be backed up."

Else

objLogFile.ClearEventLog()

End If

Next

 

For Each objLogfile in colLogFilesS

errBackupLog = objLogFile.BackupEventLog("C:\" & StrDate & "\system.evt")

If errBackupLog <> 0 Then

Wscript.Echo "The System event log could not be backed up."

Else

objLogFile.ClearEventLog()

End If

Next

 

For Each objLogfile in colLogFilesSec

errBackupLog = objLogFile.BackupEventLog("C:\" & StrDate & "\security.evt")

If errBackupLog <> 0 Then

Wscript.Echo "The Security event log could not be backed up."

Else

objLogFile.ClearEventLog()

End If

Next

[grizzly999 11]

Nicht direkt zu deinem Problem mit dem Skript, aber muss es VB sein?

Da gibt es ein KLasse Freeware Tool, das kann ganz Tool Logs in der Domäne einsammeln: http://www.heysoft.de/Frames/f_sw_es_en.htm

 

 

grizzly999

[Oliver-kiel 14]

Hy,

das Tool ist an und für sich nicht schlecht, nur wuerde ich gerne beim VB-Script bleiben, bis auf das Security Event sichert das Script ja alles. Es wird ein Ordner erstellt und in diesen Ordner das Event Log kopiert, und soll es auch weiterlaufen, da der BR es vorschreibt das die Eventlogs von z.b. 03.03.2006 in den Ordner mit Namen 03.03.2006 gespeichert werden sollen es sind davon ja auch nur ein paar server betroffen ... .. .

 

Aber trotzdem danke, falls jemand noch ne Idee hat währe ich dankbar ... .. .

 

MFG Oliver-kiel

[grizzly999 11]

Ok, dann halt nicht **beleidgt bin** :D :D

 

Dann mach' es so, änder deine Impersonationzeile wie folgt ab (Rot= Ergänzung in deinem Skript):

 

Set objWMIService = GetObject("winmgmts:" _

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

 

 

grizzly999

[Oliver-kiel 14]

Hey,

dankeschön, jetzt läufts wie es sein soll suupeeerrrrrrrrr........ :D :D :D

MFG Oliver-kiel