Fråga : Planlagda uppgifter att utföra dagligen exporten av händelsetittaren för serveren W2K3 loggar .......,

Jag behöver att göra en dagstidningexport, allra som händelsetittaren sparar på våra serveror… är efter funnen sökande google för skriva en I….,  original- tanke för
My var att göra den till och med planlagda uppgifter för fönster, men any långt ska work.

Can någon ger mig deras tankar på skriva, eller another långt som automatiskt exporterar händelsetittaren, loggar??? class= för

' namnger av denna skrivar: för '- " för http://www.ftponline.com/wss/2004_12/magazine/features/kgardinier/page2.aspx " rel= " nofollow " " för _blank " target= > för http://www.go-itservices.com/Windows_Server_2003_Maintenance_Strategy.pdf " för href= för ss/2004_12/magazine/features/kgardinier/page2.aspx
'- rel= " nofollow " " för _blank " target= > för http://safari.samspublishing.com/0672326671/index?indexview=L " för href= för om/Windows_Server_2003_Maintenance_Startegy.pdf
'- rel= " nofollow " " för _blank " target= > 2326671/index för http://safari.samspublishi ng.com/067? indexview=L (sökande: Loggar)


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

Set WS = CreateObject (”Wscript.Shell”)
Set

leSystemObject”)/>DateString = CurrentDate ()

Purge = falskt ”<---  Jag ändrade den till F för att testa, det bör be*: Next

on felmeritförteckning/>StartTime = Now
Output”,---------------------------------”
OutPut ”som startas på: ” & system för
Set för "" för CStr (nu)
Output = GetObject (”winmgmts: {(Backup, Security)}\ \” & ServerName & _
" \ rotar \ CIMV2 ")
If Err.Number = 0 Then
fastställda colLogs =

för System.ExecQuery (”välj * från Win32_NTEventLogFile”, 48), för varje refLog i för logName- = ServerName& för colLogs
” _ ”& LogFileName (refLog.LogFileName) & för _
” _ ”& DateString

, om
för _
FSO.DeleteFile (strArchiveFolder för FSO.FileExists (strArchiveFolder &” \ ”& LogName &” .evt ") därefter & ”\” & logNamen & ”.evt”), om laxermedel Then
RetVal = reflog.ClearEventlog (strArchiveFolder &” \ ”, & logNamen &
Else
RetVal” för .evt ") =
för reflog.BackupEventlog (strArchiveFolder & ”\” & logNamen & ”.evt”) avslutar If
, om RetVal = 0 Then
tillverkade vbTab & ”loggar arkiverades i .evt formaterar: ” & logNamen & ”.evt "
, om tillverkad vbTab för laxermedel därefter & ”alla händelser görades klar vbTab för
Else
& ”felstunder som arkiverar i .evt, formaterar. ”
avslutar If
Next
Else
tillverkad vbTab, & ”missat förbind till serveren " colLogs för
End If
Set = Nothing
Set refLogs = det Nothing
Set systemet = Nothing

Output”,----------------------------------------”
OutPut ”färdig på: ” &
Set för "" för
Output för "" för CStr (nu)
Output WS = Nothing
” FullLog.Close??? FullLog=unknown
Set FullLog = Nothing
Set FSO = Nothing

Function CurrentDate
i dag = Date
, om månad (i dag) < 10 Then
CurrentDate = ”0” & CStr (månad (i dag))
Else
CurrentDate = CStr (månad (i dag))
avslutar If
, om dagen (i dag) < 10 Then
CurrentDate = CurrentDate & ”0” & CStr (dagen (i dag))
Else
CurrentDate = CurrentDate & CStr (dag (i dag))
avslutar If
CurrentDate = CurrentDate & CStr (året (i dag))
, om timmen (Time) < 10 Then
CurrentDate = CurrentDate & ”0” & CStr (timmen (Time))
Else
CurrentDate = CurrentDate & CStr (timmen (Time))
avslutar för det LogName
för fallet för If
End Function

Function LogFileName (LogName)
vald
LogFileName ”för applikationen " fallet = fallet
LogFileName för
””för dir för fallet ”för app-"
tjänste- "
LogFileName ”för arkivet = " för DNS-serveren " = fallet ”för dns-"
, ”spara tjänste- som "
LogFileName för replicationen =
LogFileName ”för säkerhet " för fallet ”för tekniker-"
=
LogFileName ”för systemet " för fallet ”för sekund"
= ”system-"
avslutar text för text
' FullLog.writeline för Select
End Function

Sub tillverkad (text)
' wscript.echo??? FullLog=unknown
End Sub

" klar "

Svar : Planlagda uppgifter att utföra dagligen exporten av händelsetittaren för serveren W2K3 loggar .......,

Skapa ett lagrat tillvägagångssätt för att köra SSRS-rapporten.

I tillvägagångssättet
1. skapa tillfälligt a [bordlägga], för att rymma resultaten dina queryretur över. Skapa standard värderar av zero in de summariska kolonnerna.
2. Sätt in dina data in i [tillfälligt bordlägga], med den valda queryen som du går data med nu tillbaka. Ändra ditt sammanfogar till fullt yttre sammanfogar, när bandet till datera bordlägger.
3. Ditt bordlägga ska skapar nolla värderar för varje daterar som passeras utan numeriska data.

Välj resultaten från det tillfälligt bordlägger för att gå tillbaka till SSRS-rapporten.