Question : Tâches programmées d'exécuter l'exportation quotidienne des notations de visionneuse d'événement du serveur W2K3 .......

Je dois faire une exportation quotidienne de tous les dossiers de visionneuse d'événement sur nos serveurs… que ce qui suit est un manuscrit j'ai trouvé rechercher le google….  la pensée originale du
My était de le faire par des tâches programmées par fenêtres, est-ce que mais une manière work.

Can n'importe qui me donnera leurs pensées sur un manuscrit ou un chemin différent d'exporter automatiquement les notations de visionneuse d'événement ? ? ? le class= du

' nom de ce manuscrit : rel= " nofollow " de " _blank " de target= de " http://www.ftponline.com/wss/2004_12/magazine/features/kgardinier/page2.aspx " de href= de '- > rel= " nofollow " de " _blank " de target= de " http://www.go-itservices.com/Windows_Server_2003_Maintenance_Strategy.pdf " de href= de ss/2004_12/magazine/features/kgardinier/page2.aspx
'- de http://www.ftponline.com/w > rel= " nofollow " de " _blank " de target= de " http://safari.samspublishing.com/0672326671/index?indexview=L " de href= de om/Windows_Server_2003_Maintenance_Startegy.pdf
'- de http://www.go-itservices.c > 2326671/index du ng.com/067 de http://safari.samspublishi ? indexview=L (recherche :


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

Set le WS =
Set de CreateObject (le « Wscript.Shell »)

leSystemObject »)/>DateString =

Purge = faux « <---  Je l'ai changé en F pour l'essai, il devrais be* : Next

on/>StartTime = Now
Output »---------------------------------« 
OutPut « commencé à :  » Et système du
Set de "" du
Output de CStr (maintenant) = GetObject (« winmgmts : {(Backup, Security)} \ \ » et ServerName et " de _
\ racine \ CIMV2 ")
If Err.Number = 0 colLogs réglés de Then
=

de System.ExecQuery (« choisir * à partir de Win32_NTEventLogFile », 48) pour chaque refLog dans le nom d'identification du colLogs
= le ServerName& » _ « et le LogFileName (refLog.LogFileName) et le _
 » _ « et DateString

si
du _
FSO.DeleteFile (strArchiveFolder de FSO.FileExists (strArchiveFolder et » \ « et nom d'identification et » .evt ") puis et « \ » et nom d'identification et « .evt ») si purge Then
RetVal = reflog.ClearEventlog(strArchiveFolder et » \ « et nom d'identification et » .evt ")
Else
RetVal = extrémité If
du
de reflog.BackupEventlog (strArchiveFolder et « \ » et nom d'identification et « .evt ») si RetVal = 0 vbTab et « notations de rendement de Then
était archivé dans le format de .evt :  » Et le
de nom d'identification et « de .evt " si la purge produisait alors le vbTab et « tous les événements ont été dégagés de la notation le "
Else
a produit le vbTab et « l'erreur tout en archivant dans le format de .evt. la « extrémité If
Next
Else
du
a produit le vbTab et « a échoué se relie au serveur " colLogs du
End If
Set = refLogs de Nothing
Set = système de Nothing
Set = Nothing

Output »----------------------------------------« 
OutPut « fini à :  » Et
Set de "" du
Output de "" du
Output de CStr (maintenant) le WS = le Nothing
 » FullLog.Close ? ? ?
Set FullLog = Nothing
Set de FullLog=unknown FSO = Nothing

Function CurrentDate
aujourd'hui = Date
si mois (aujourd'hui) < 10 Then
CurrentDate = « 0 » et CStr (mois (aujourd'hui))
Else
CurrentDate = CStr (mois (aujourd'hui))Extrémité If
du
si jour (aujourd'hui) < 10 Then
CurrentDate = CurrentDate et « 0 » et CStr (jour (aujourd'hui))
Else
CurrentDate = CurrentDate et CStr (jour (aujourd'hui))Extrémité If
CurrentDate = CurrentDate et CStr (année du
(aujourd'hui))
si heure (temps) < 10 Then
CurrentDate = CurrentDate et « 0 » et CStr (heure (temps))
Else
CurrentDate = CurrentDate et CStr (heure (temps))Le
d'If
End Function

Function LogFileName (nom d'identification) de fin du
choisissent le
LogFileName de « application " de cas de LogName
de cas = le
LogFileName de « service d'annuaire " de cas du
de « $$etAPP " = " cas le
LogFileName du
« de « dir de serveur de DNS " = le
LogFileName de « service de réplique de dossier " de cas du
de « DNS " = le
LogFileName de « sécurité " de cas du
de « représentant " = le
LogFileName de « système " de cas du
de « sec " = texte du text
'FullLog.writeline du
'wscript.echo de rendement de Select
End Function

Sub de fin du
de « système " (texte) ? ? ? FullLog=unknown
End Sub

class= de

Réponse : Tâches programmées d'exécuter l'exportation quotidienne des notations de visionneuse d'événement du serveur W2K3 .......

Créer un procédé stocké pour courir le rapport de SSRS.

Du procédé
1. créer a [table provisoire] pour tenir les résultats vos retours de question ci-dessus. Créer les valeurs par défaut de mettent dedans les colonnes récapitulatives.
2. Insérer vos données dans [table provisoire] avec la question choisie que vous renvoyez des données avec maintenant. Changer le votre se joignent à plein externe se joignent en liant à la table de date.
3. Votre table créera les valeurs nulles pour chaque date qui est passée sans données numériques.

Choisir les résultats à partir de la table provisoire pour retourner au rapport de SSRS.