Frage : Zeitlich geplante Aufgaben, täglichen Export der Bediener W2K3 Ereignis-Projektor-Maschinenbordbücher durchzuführen .......

Ich muss einen täglichen Export aller Ereignisprojektorakten auf unseren Bedienern tun,…, das das folgende ein Index ist, ich fand das Suchen von google….  
My ursprünglicher Gedanke war, es durch Fenster zeitlich geplante Aufgaben zu tun, aber irgendeine Weise work.

Can jemand gibt mir ihre Gedanken auf dem Index oder einer anderen Weise, die Ereignis-Projektor-Maschinenbordbücher automatisch zu exportieren???

' Name dieses Indexes: 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 (Suche: Maschinenbordbücher)


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

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

DateString = CurrentDate ()

Purge = falsch „<---  Ich änderte es zu F für Prüfung, es sollte be*: Bereinigungs- = True

on Störungszusammenfassung next
StartTime = Now
Output“---------------------------------„
OutPut „begonnen an: “ U. CStr (jetzt)
Output ""
Set System = GetObject („winmgmts: {(Backup, Security)} \ \“ u. ServerName u. _
" \ Wurzel \ CIMV2 ")
If Err.Number = 0 Then
gesetzte colLogs = System.ExecQuery („* von Win32_NTEventLogFile“, 48 vorwählen),

für jedes refLog colLogs
in der Benutzerkennung = ServerName&“ _ „u. LogFileName (refLog.LogFileName) u. _
“ _ „u. DateString

wenn FSO.FileExists (strArchiveFolder u.“ \ „u. Benutzerkennung u.“ .evt ") dann _
FSO.DeleteFile (strArchiveFolder u. „\“ u. Benutzerkennung u. „.evt“)
wenn Bereinigung Then
RetVal = reflog.ClearEventlog(strArchiveFolder u.“ \ „u. Benutzerkennung u.“ .evt ")
Else
RetVal = reflog.BackupEventlog (strArchiveFolder u. „\“ u. Benutzerkennung u. „.evt“)
Ende If
, wenn RetVal = 0 Then
Ausgangs-vbTab u. „Maschinenbordbuch im .evt Format archiviert wurde: “ U. Benutzerkennung u. „.evt " wurden
, wenn Bereinigung dann vbTab u. „alle Ereignisse ausgab, vom Maschinenbordbuch "
Else
ausgab vbTab u. „Störung bei der Archivierung im .evt Format gelöscht. „
Ende If
Next
Else
gab vbTab aus u. „fiel anschließen an den Bediener "
End If
Set colLogs = Nothing
Set refLogs = Nothing
Set System = Nothing

Output“ aus----------------------------------------„
OutPut „beendet an: “ U. CStr (jetzt)
Output ""
Output ""
Set WS = Nothing
“ FullLog.Close??? FullLog=unknown
Set FullLog = Nothing
Set FSO = Nothing

Function CurrentDate
heute = Date
, wenn Monat (heute) < 10 Then
CurrentDate = „0“ u. CStr (Monat (heute))
Else
CurrentDate = CStr (Monat (heute))
Ende If
, wenn Tag (heute) < 10 Then
CurrentDate = CurrentDate u. „0“ u. CStr (Tag (heute))
Else
CurrentDate = CurrentDate u. CStr (Tag (heute))
Ende If
CurrentDate = CurrentDate u. CStr (Jahr (heute))
, wenn Stunde (Zeit) < 10 Then
CurrentDate = CurrentDate u. „0“ u. CStr (Stunde (Zeit))
Else
CurrentDate = CurrentDate u. CStr (Stunde (Zeit))
Ende If
End Function

Function LogFileName (Benutzerkennung)
wählen Fall LogName
Fall-„Anwendung "
LogFileName = „APP "
Fall-„Verzeichnis-Service "
LogFileName = „dir "
Fall „DNS-Bediener "
LogFileName = „DNS "
Fall-„Akten-Reproduktion-Service "
LogFileName = „Repräsentant "
Fall-„Sicherheit "
LogFileName = „sek "
Fall-„System "
LogFileName = „System "
Ende Select
End Function

Sub Ausgang (Text)
' wscript.echo text
' FullLog.writeline Text?? vor? FullLog=unknown
End Sub

Antwort : Zeitlich geplante Aufgaben, täglichen Export der Bediener W2K3 Ereignis-Projektor-Maschinenbordbücher durchzuführen .......

Ein gespeichertes Verfahren verursachen, um den SSRS Report laufen zu lassen.

Im Verfahren
1. a [temporäre Tabelle] verursachen um die Resultate oben zu halten Ihre Fragenrückkehr. Default-Werte von verursachen auf null einstellen innen die zusammenfassenden Spalten.
2. Ihre Daten in [temporäre Tabelle] mit der auserwählten Frage einsetzen, die Sie Daten mit jetzt zurückbringen. Ihr ändern verbinden zu vollem äußerem verbinden beim Binden zum Datumtabelle.
3. Ihre Tabelle verursacht nullwerte für jedes Datum, das ohne numerische Daten überschritten.

Die Resultate von der temporären Tabelle vorwählen, um zum SSRS Report zurückzugehen.