Vraag : De geplande Taken om de dagelijkse uitvoer van W2K3 de Kijker van de serverGebeurtenis uit te voeren registreert .......

Ik moet de dagelijkse uitvoer van alle dossiers van de gebeurteniskijker op onze servers doen… Het volgende is een manuscript ik het zoeken google…. vond  
My de originele gedachte het door vensters moest doen plande taken, maar zal om het even welke manier work.

Can iedereen me hun gedachten op het manuscript of een andere manier geeft de Logboeken van de Kijker van de Gebeurtenis automatisch om uit te voeren???

' naam van dit manuscript: logarchive.vbs
'- http://www.ftponline.com/w ss/2004_12/magazine/features/kgardinier/page2.aspx
'- http://www.go-itservices.c om/Windows_Server_2003_Maintenance_Startegy.pdf
'- http://safari.samspublishi ng.com/067 2326671/index? indexview=L (onderzoek: Logboek)


strArchiveFolder = „C:\BckEvt "
ServerName = „SrvDC001 "

Set WS = CreateObject („Wscript.Shell“)
Set FSO = CreateObject („Scripting.FileSystemObject“)

DateString = CurrentDate ()

Purge = Vals „<---  Ik veranderde het in F voor het testen, zou het be* moeten: De zuivering = de fout van True

on hervat next
StartTime = Now
Output“„
OutPut „begon bij: “ & (Nu)
Output ""
Set Systeem CStr = GetObject („winmgmts: {(Backup, Security)}\ \“ de wortel & van ServerName & van _
" \ \ CIMV2 ")
If Err.Number = 0 Then
plaatsen colLogs = System.ExecQuery („selecteer * uit Win32_NTEventLogFile“, 48)

voor Elke refLog in colLogs
LogName = ServerName&“ _ „& LogFileName (refLog.LogFileName) & _
“ _ „& DateString

als FSO.FileExists (strArchiveFolder &“ \ „& LogName &“ .evt ") Dan _
FSO.DeleteFile (strArchiveFolder & „\“ & LogName & „.evt“)
als Zuivering Then
RetVal = reflog.ClearEventlog (strArchiveFolder &“ \ „ & LogName &“ .evt ")
Else
RetVal = (strArchiveFolder & „\“ & LogName & „.evt“)
Eind reflog.BackupEventlog If
als RetVal =/> Output 0 Then
als de Output van de Zuivering toen vbTab & „Alle gebeurtenissen van de logboek "
Else
Output vbTab & „Fout terwijl het archiveren in .evt formaat werden ontruimd. „/> de Output van If
Next
Else
vbTab & „Ontbroken verbindt met de server "
End If
Set colLogs = Nothing
Set refLogs = het Systeem van Nothing
Set = Nothing

Output“„
OutPut „eindigde bij: “ & CStr (nu)
Output ""
Output ""
Set WS = Nothing
“ FullLog.Close??? FullLog=unknown
Set FullLog = Nothing
Set FSO = Nothing

Function CurrentDate
vandaag = Date
als Maand (vandaag) < 10 Then
CurrentDate = „0“ & CStr (Maand (vandaag))
Else
CurrentDate = CStr (Maand (vandaag))
beëindigt If
als Dag (vandaag) < 10 Then
CurrentDate = CurrentDate & „0“ & CStr (Dag (vandaag))
Else
CurrentDate = CurrentDate & CStr (Dag (vandaag))
beëindigt If
CurrentDate = CurrentDate & CStr (Jaar (vandaag))
als Uur (Tijd) < 10 Then
CurrentDate = CurrentDate & „0“ & CStr (Uur (Tijd))
Else
CurrentDate = CurrentDate & CStr (Uur (Tijd))/> Geval „Toepassing "
LogFileName van LogName
Function LogFileName van If
End Function

het Uitgezochte/> = „app "
Indexdienst "
LogFileName van het Geval de „= „Dir "
Geval „DNS Server "
LogFileName = „dns "
Geval „de Dienst "
LogFileName van de Replicatie van het Dossier = het Geval „Veiligheid "
LogFileName van „rep "
= het Geval „Systeem "
LogFileName van „seconde "
= van „sys "
van het Eind van Select
End Function

Sub- Output (Tekst)
' wscript.echo text
' FullLog.writeline- tekst??? FullLog=unknown
End Sub

Antwoord : De geplande Taken om de dagelijkse uitvoer van W2K3 de Kijker van de serverGebeurtenis uit te voeren registreert .......

Cre�ër een Opgeslagen procedure om het Ssrs- Rapport in werking te stellen.

In de procedure
1. cre�ër a [tijdelijke lijst] om de resultaten te houden uw vraag hierboven terugkeert. Cre�ër standaardwaarden van nul in de summiere kolommen.
2. Neem uw gegevens in [tijdelijke lijst] met de uitgezochte vraag op u gegevens met nu terugkeert. Verander uw toetreden aan volledige buiten toetreden wanneer het binden aan de datumlijst.
3. Uw lijst zal tot nul waarden voor elke datum leiden die zonder numerieke gegevens wordt overgegaan.

Selecteer de resultaten van de tijdelijke lijst om aan het Ssrs- Rapport terug te keren.