Questione : Mansioni prevedute effettuare esportazione quotidiana dei ceppi del visore di evento dell'assistente W2K3 .......

Devo fare un'esportazione quotidiana di tutte le lime del visore di evento sui nostri assistenti… che ciò che segue è uno scritto ho trovato la ricerca del google….  il pensiero originale del
My era di farlo con le mansioni prevedute finestre, ma del senso work.

Can chiunque mi prenderà in la loro considerazione sullo scritto o su un altro senso esportare automaticamente i ceppi del visore di evento??? il class= del

' nome di questo scritto: rel= " nofollow " " del _blank " " del target= " di http://www.ftponline.com/wss/2004_12/magazine/features/kgardinier/page2.aspx del href= di '- > rel= " nofollow " " del _blank " " del target= " di http://www.go-itservices.com/Windows_Server_2003_Maintenance_Strategy.pdf del href= di ss/2004_12/magazine/features/kgardinier/page2.aspx
'- di http://www.ftponline.com/w > rel= " nofollow " " del _blank " " del target= " di http://safari.samspublishing.com/0672326671/index?indexview=L del href= di om/Windows_Server_2003_Maintenance_Startegy.pdf
'- di http://www.go-itservices.c > 2326671/index del ng.com/067 di http://safari.samspublishi? indexview=L (ricerca:


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

Set la WS =
Set di CreateObject (“Wscript.Shell„)

leSystemObject„)/>DateString =

Purge = falso “<---  Lo ho cambiato alla F per la prova, esso dovrei be*: Next

on/>StartTime = Now
Output„---------------------------------“
OutPut “iniziato a: „ & sistema del
Set del "" del
Output di CStr (ora) = GetObject (“winmgmts: {(Backup, Security)} \ \„ & ServerName & " \ radice \ CIMV2 " del _
)
If Err.Number = 0 colLogs stabiliti di Then
=

di System.ExecQuery (“selezionare * a partire da Win32_NTEventLogFile„, 48) per ogni refLog nel LogName del colLogs
= ServerName&„ _ “& LogFileName (refLog.LogFileName) & _
„ _ “& DateString

se
del _
FSO.DeleteFile (strArchiveFolder di FSO.FileExists (strArchiveFolder &„ \ “& LogName &„ .evt ") allora & “\„ & LogName & “.evt„) se eliminazione dei fogli inceppati Then
RetVal = reflog.ClearEventlog(strArchiveFolder &„ \ “& LogName &„ .evt ")
Else
RetVal = estremità If
del
di reflog.BackupEventlog (strArchiveFolder & “\„ & LogName & “.evt„) se RetVal = 0 vbTab & “ceppi dell'uscita di Then
sia archivato nella disposizione di .evt: „ & il
di .evt “& di LogName " se l'eliminazione dei fogli inceppati allora producesse il vbTab & “tutti gli eventi è stato rimosso dal ceppo " il
Else
ha prodotto il vbTab & “l'errore mentre archivava nella disposizione di .evt. “l'estremità If
Next
Else
del
ha prodotto il vbTab & “è venuto a mancare si collegano all'assistente " colLogs del
End If
Set = refLogs di Nothing
Set = sistema di Nothing
Set = Nothing

Output„----------------------------------------“
OutPut “rifinito a: „ &
Set del "" del
Output del "" del
Output di CStr (ora) la WS = Nothing
„ FullLog.Close???
Set FullLog = Nothing
Set di FullLog=unknown FSO = Nothing

Function CurrentDate
oggi = Date
se mese (oggi) < 10 Then
CurrentDate = “0„ & CStr (mese (oggi))
Else
CurrentDate = CStr (mese (oggi))Estremità If
del
se giorno (oggi) < 10 Then
CurrentDate = CurrentDate & “0„ & CStr (giorno (oggi))
Else
CurrentDate = CurrentDate & CStr (giorno (oggi))Estremità If
CurrentDate = CurrentDate & CStr (anno del
(oggi))
se ora (tempo) < 10 Then
CurrentDate = CurrentDate & “0„ & CStr (ora (tempo))
Else
CurrentDate = CurrentDate & CStr (ora (tempo))Il
di If
End Function

Function LogFileName (LogName) di conclusione del
seleziona il
LogFileName “di applicazione " di caso di LogName
di caso =
LogFileName di servizio d'informazione " di caso del
““di app " = caso “il
LogFileName del
“del dir " dell'assistente di DNS " =
LogFileName di servizio della replica della lima " di caso del
““di dns " =
LogFileName “di sicurezza " di caso del
“del rappresentante " =
LogFileName “del sistema " di caso del
“di sec " = testo del text
'FullLog.writeline del
'wscript.echo dell'uscita di Select
End Function

Sub di conclusione del
“del sistema " (testo)??? FullLog=unknown
End Sub

class= del

Risposta : Mansioni prevedute effettuare esportazione quotidiana dei ceppi del visore di evento dell'assistente W2K3 .......

Generare una procedura immagazzinata per fare funzionare il rapporto di SSRS.

Nella procedura
1. generare la a [tabella provvisoria] per tenere i risultati i vostri ritorni di domanda qui sopra. Generare i valori di difetto di azzerano dentro le colonne sommarie.
2. Inserire i vostri dati nel [tabella provvisoria] con la domanda che prescelta state restituendo i dati con ora. Cambiare il vostro si uniscono ad esterno pieno si uniscono quando legano alla tabella di data.
3. La vostra tabella genererà i valori zero per ogni data che è passata senza dati numerici.

Selezionare i risultati a partire dalla tabella provvisoria per rinviare al rapporto di SSRS.