Pytanie : Dołączony Zadanie dzienny eksport W2K3 serwer Wydarzenie Widz Notować .......

I potrzebować dzienny eksport wszystkie the wydarzenie widz kartoteka na nasz serwer… The następujący być pismo I znajdować google….  
My oryginalny myśl być ono przez okno planować zadanie, ale jakaś sposób work.

Can bela dawać ich myśl na the pismo lub inny sposób automatycznie the Wydarzenie Widz Bela???

' imię ten pismo: 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 (rewizja: Bela)


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

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

DateString = CurrentDate ()

Purge = Fałszywy "<---  I zmieniać ono F dla testowanie, ono musieć be*: Czystka = True

on błąd życiorys next
StartTime = Now
Output"---------------------------------"
OutPut "Zaczynać przy: " & CStr (Teraz)
Output ""
Set System = GetObject ("winmgmts: {(Backup, Security)}\ \" & ServerName & _
" \ korzeń \ CIMV2 ")
If Err.Number = (0) Then
Ustalony colLogs = System.ExecQuery ("wybiórka * od Win32_NTEventLogFile", 48)

Dla 48 refLog W colLogs
LogName = ServerName&" _ "& LogFileName (refLog.LogFileName) & _
" _ "& DateString

Jeżeli FSO.FileExists (strArchiveFolder &" \ "& LogName &" .evt ") Wtedy _
FSO.DeleteFile (strArchiveFolder & "\" & LogName & ".evt")
Jeżeli Czystka Then
RetVal = reflog.ClearEventlog (strArchiveFolder &" \ " & LogName &" .evt ")
Else
RetVal = reflog.BackupEventlog (strArchiveFolder & "\" & LogName & ".evt")
Końcówka If
Jeżeli RetVal = (0) Then
Wydajność vbTab & "Bela archiwizować w .evt format: " & LogName & ".evt "
Jeżeli Czystka Wtedy Przesyłać vbTab & "Wszystkie wydarzenie rozjaśniać od the bela "
Else
Przesyłać vbTab & "Błąd podczas gdy archiwizować w .evt format. "
Końcówka If
Next
Else
Przesyłać vbTab & "Nie Udać Się łączyć the serwer "
End If
Set colLogs = Nothing
Set refLogs = Nothing
Set System = Nothing

Output"----------------------------------------"
OutPut "Kończyć przy: " & CStr (Teraz)
Output ""
Output ""
Set WS = Nothing
" FullLog.Close??? FullLog=unknown
Set FullLog = Nothing
Set FSO = Nothing

Function CurrentDate
Dzisiaj = Date
Jeżeli Miesiąc (Dzisiaj) < 10 Then
CurrentDate = "(0)" & CStr (Miesiąc (Dzisiaj))
Else
CurrentDate = CStr (Miesiąc (Dzisiaj))
Końcówka If
Jeżeli Dzień (Dzisiaj) < 10 Then
CurrentDate = CurrentDate & "(0)" & CStr (Dzień (Dzisiaj))
Else
CurrentDate = CurrentDate & CStr (Dzień (Dzisiaj))
Końcówka If
CurrentDate = CurrentDate & CStr (Rok (Dzisiaj))
Jeżeli Godzina (Czas) < 10 Then
CurrentDate = CurrentDate & "(0)" & CStr (Godzina (Czas))
Else
CurrentDate = CurrentDate & CStr (Godzina (Czas))
Końcówka If
End Function

Function LogFileName (LogName)
Wybrany Skrzynka LogName
Skrzynka "Podaniowy "
LogFileName = "app "
Skrzynka "Książka telefoniczna Usługowy "
LogFileName = "dir "
Skrzynka "DNS Serwer "
LogFileName = "dns "
Skrzynka "Kartoteka Replikacja Usługa "
LogFileName = "rypsowy "
Skrzynka "Ochrona "
LogFileName = "sec "
Skrzynka "System "
LogFileName = "sys "
Końcówka Select
End Function

Sub Wydajność (Tekst)
' wscript.echo text
' FullLog.writeline tekst??? FullLog=unknown
End Sub

Odpowiedź : Dołączony Zadanie dzienny eksport W2K3 serwer Wydarzenie Widz Notować .......

Tworzyć Zaopatrzony procedura the SSRS Raport.

W the procedura
1. tworzyć a [chwilowy stół] the rezultat twój zapytanie powrót twój. Tworzyć brak wartość wycelować wewnątrz the zbiorczy kolumna.
2. Wkładać twój dane w the [chwilowy stół] z the wybrany zapytanie ty być oddawanie dane z teraz. Zmieniać twój łączyć folować zewnętrzny łączyć gdy oprawiać the daktylowy stół.
3. Twój stół tworzyć twój wartość dla każdy data który przechodzić bez numeryczny dane.

Wybierać the rezultat od the chwilowy stół the SSRS Raport.