Backup de registro de eventos en W 2003 server

 

Si necesitas guardar el registro de eventos diariamente y archivarlo por fechas…

Simplemente copia este código en un editor de texto y guárdalo como eventviewer.vbs

Crea en la unidad C un directorio de nombre “scripts”, donde guardaremos los backups.

Ejecútalo desde la consola de comandos: ej.: >cscript eventviewer.vbs

Y comprueba el resultado……válido para WXP, W2000 y W2003.

Ahora solo te queda crear una tarea programada para que se ejecute este script cada noche a las 23:59.

 …………………….script…………………..

 

dtmThisDay = Day(Date)

dtmThisMonth = Month(Date)

dtmThisYear = Year(Date)

strBackupName = dtmThisYear & «_» & dtmThisMonth & «_» & dtmThisDay

 

strComputer = «.»

Set objWMIService = GetObject(«winmgmts:» _

    & «{impersonationLevel=impersonate,(Backup)}!\\» & _

        strComputer & «\root\cimv2»)

 

Set colLogFiles = objWMIService.ExecQuery _

    («Select * from Win32_NTEventLogFile where LogFileName=’File Replication service'»)

 

For Each objLogfile in colLogFiles

    objLogFile.BackupEventLog(«c:\scripts\» & strBackupName & _

        «_file_replication_service.evt»)

    objLogFile.ClearEventLog()

Next

 

Set colLogFiles = objWMIService.ExecQuery _

    («Select * from Win32_NTEventLogFile where LogFileName=’System'»)

 

For Each objLogfile in colLogFiles

    objLogFile.BackupEventLog(«c:\scripts\» & strBackupName & _

        «_system.evt»)

    objLogFile.ClearEventLog()

 

Next

 

Set colLogFiles = objWMIService.ExecQuery _

    («Select * from Win32_NTEventLogFile where LogFileName=’Security'»)

 

For Each objLogfile in colLogFiles

    objLogFile.BackupEventLog(«c:\scripts\» & strBackupName & _

        «_security.evt»)

    objLogFile.ClearEventLog()

 

Next

 

Set colLogFiles = objWMIService.ExecQuery _

    («Select * from Win32_NTEventLogFile where LogFileName=’DNS server'»)

 

For Each objLogfile in colLogFiles

    objLogFile.BackupEventLog(«c:\scripts\» & strBackupName & _

        «_dnsserver.evt»)

    objLogFile.ClearEventLog()

 

Next

 

Set colLogFiles = objWMIService.ExecQuery _

    («Select * from Win32_NTEventLogFile where LogFileName=’Directory service'»)

 

For Each objLogfile in colLogFiles

    objLogFile.BackupEventLog(«c:\scripts\» & strBackupName & _

        «_Directory service.evt»)

    objLogFile.ClearEventLog()

 

Next

 

Set colLogFiles = objWMIService.ExecQuery _

    («Select * from Win32_NTEventLogFile where LogFileName=’Application'»)

 

For Each objLogfile in colLogFiles

    objLogFile.BackupEventLog(«c:\scripts\» & strBackupName & _

        «_application.evt»)

    objLogFile.ClearEventLog()

 

Next

………………………………………..

 

Averiguar la versión de cscript

 

Quieres saber la versión de cscript que se ejecuta en tu máquina?

Simplemente copia este código en un editor de texto y guárdalo con la extensión .vbs

Ejecútalo y te dirá la versión que corre en tu máquina

———————————–

Wscript.Echo «Name = » & Wscript.Name &vbCrLf &_
  «Version = » & Wscript.Version &vbCrLf &_
  «At » & Wscript.Fullname

Evitar las falsificaciones de direcciones de correo en Exchange 2003.

La desactivación del acceso anónimo ayuda a asegurar que sólo los usuarios autenticados pueden enviar mensajes dentro de la organización. Además, al solicitar la autenticación se obliga a que los programas cliente como Outlook Express y Outlook con RPC a través de HTTP se autentiquen antes de enviar correo. Puedes asegurar tu servidor evitando las falsificaciones de correo desactivando el acceso anónimo en las propiedades del servidor virtual, dentro del protocolo SMTP, en la pestaña acceso, dentro de autenticación.