Pergunta : Tarefas programadas executar a exportação diária de registros do visor do evento do usuário W2K3 .......

Eu preciso de fazer uma exportação diária de todas as limas do visor do evento em nossos usuários… que o seguinte é um certificado eu encontrei a pesquisa do google….  o pensamento original do
My era fazê-lo com as tarefas programadas janelas, mas alguma maneira work.

Can qualquer um dar-me-á seus pensamentos no certificado ou em uma outra maneira exportar automaticamente os registros do visor do evento??? o class= do





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


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

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

leSystemObject”)/>DateString =

Purge = falso “<---  Eu mudei-o a F para o teste, ele devo be*: Next

on/>StartTime = Now
Output”---------------------------------“
OutPut “começado em: ” & sistema do
Set do "" do
Output de CStr (agora) = GetObject (“winmgmts: {(Backup, Security)} \ \” & ServerName & " do _
\ raiz \ CIMV2 ")
If Err.Number = 0 colLogs ajustados de Then
=

de System.ExecQuery (“selecionar * de Win32_NTEventLogFile”, 48) para cada refLog no LogName do colLogs
= o ServerName&” _ “& o LogFileName (refLog.LogFileName) & o _
” _ “& DateString

se
do _
FSO.DeleteFile de FSO.FileExists (strArchiveFolder &” \ “& LogName &” .evt ") então (strArchiveFolder & “\” & LogName & “.evt”) se remoção Then
RetVal = reflog.ClearEventlog(strArchiveFolder &” \ “& LogName &” .evt ")
Else
RetVal = extremidade If
do
de reflog.BackupEventlog (strArchiveFolder & “\” & LogName & “.evt”) se RetVal = 0 vbTab & “registros da saída de Then
foi arquivado no formato de .evt: ” &
do LogName & “do .evt o " se a remoção Output então vbTab & “todos os eventos foi cancelado do registro "
Else
Output o vbTab & “o erro ao arquivar no formato de .evt. do “a extremidade If
Next
Else

Output o vbTab & “falhou coneta ao usuário do " colLogs
End If
Set = refLogs de Nothing
Set = sistema de Nothing
Set = Nothing

Output”----------------------------------------“
OutPut “terminado em: ” &
Set do "" do
Output do "" do
Output de CStr (agora) WS = Nothing
” FullLog.Close???
Set FullLog = Nothing
Set de FullLog=unknown FSO = Nothing

Function CurrentDate
hoje = Date
se mês (hoje) < 10 Then
CurrentDate = “0” & CStr (mês (hoje))
Else
CurrentDate = CStr (mês (hoje))Extremidade If
do
se dia (hoje) < 10 Then
CurrentDate = CurrentDate & “0” & CStr (dia (hoje))
Else
CurrentDate = CurrentDate & CStr (dia (hoje))Extremidade If
CurrentDate = CurrentDate & CStr do
(ano (hoje))
se hora (tempo) < 10 Then
CurrentDate = CurrentDate & “0” & CStr (hora (tempo))
Else
CurrentDate = CurrentDate & CStr (hora (tempo))O
de If
End Function

Function LogFileName do fim do
(LogName) seleciona o
LogFileName da “aplicação " do caso de LogName
do caso = o
LogFileName do serviço diretório " do caso do
de “do “app " = caso de “
LogFileName do
do “dir " do usuário DNS " = o
LogFileName do serviço da réplica lima " do caso do
da “do “dns " = o
LogFileName da “segurança " do caso do
do “representante " = o
LogFileName do “sistema " do caso do
do “segundo " = texto do text
' FullLog.writeline do
' wscript.echo da saída de Select
End Function

Sub do fim do
do “sistema " (texto)??? FullLog=unknown
End Sub
class= do

Resposta : Tarefas programadas executar a exportação diária de registros do visor do evento do usuário W2K3 .......

Criar um procedimento armazenado para funcionar o relatório de SSRS.

No procedimento
1. criar a [tabela provisória] para prender acima os resultados seus retornos da pergunta. Criar valores de defeito de zeram dentro as colunas sumárias.
2. Introduzir seus dados no [tabela provisória] com a pergunta que seleta você está retornando dados com agora. Mudar o seu juntam-se a exterior cheio juntam-se ao ligar à tabela de data.
3. Sua tabela criará os valores zero para cada data que é passada sem dados numéricos.

Selecionar os resultados da tabela provisória para retornar ao relatório de SSRS.
Outras soluções  
 
programming4us programming4us