' nombre de esta escritura: ¿rel= " nofollow " del " _blank " del target= de " http://www.ftponline.com/wss/2004_12/magazine/features/kgardinier/page2.aspx " del href= del
'- > rel= " nofollow " del " _blank " del target= de " http://www.go-itservices.com/Windows_Server_2003_Maintenance_Strategy.pdf " del href= del
ss/2004_12
/magazine/
features/
k
gardinier/
page2.aspx
'- de http://www.ftponline.com/w > rel= " nofollow " del " _blank " del target= de " http://safari.samspublishing.com/0672326671/index?indexview=L " del href= del
om/
Windows
_Server_20
03_Mainten
ance_Start
egy.pdf
'- de http://www.go-itservices.c >
2326671/in
dex del
ng.com/067 de http://safari.samspublishi?
indexv
iew=L (búsqueda:
strArchiveFolder = “C:\BckEvt "
ServerName = “SrvDC001 "
Set WS =
Set de CreateObject (“Wscript.Shel
l”)
leSystemOb
ject”)/>DateString =
Purge = falso “<--- Lo cambié a F para la prueba, él debo be*: Next
on/>StartTime = Now
Output”-------------------------
--------“
OutPut “comenzado en: ” Y sistema del
Set del "" del
Output de CStr (ahora) = GetObject (“winmgmts: {(Back
up, Securit
y)} \ \” y ServerName y " \ raíz \ CIMV2 " del _
)
If Err.Number = 0 colLogs determinados de Then
=
de System.ExecQuery (“seleccionar * de Win32_NTEventLogFile”, 48) para cada refLog en LogName del colLogs
= ServerName&” _ “y LogFileName (refLog.LogFile
Name) y _
” _ “y DateString
si
del _
FSO.DeleteFile (strArchiveF
older de FSO.FileExists (strArchiveF
older y” \ “y LogName y” .evt ") entonces y “\” y LogName y “.evt”) si purgación Then
RetVal = reflog.ClearEventlog(strAr
chiveFolde
r y” \ “y LogName y” .evt ")
Else
RetVal = extremo If
del
de reflog.BackupEventlog (strA
rchiveFold
er y “\” y LogName y “.evt”) si RetVal = 0 vbTab y “registros de la salida de Then
fue archivado en formato de .evt: ” Y el
del LogName y “de .evt " si la purgación entonces hizo salir el vbTab y “todos los acontecimientos fue despejado del registro "
Else
hizo salir el vbTab y “el error mientras que archivaba en formato de .evt. el “extremo If
Next
Else
del
hizo salir el vbTab y “falló conecta con el servidor " colLogs del
End If
Set = los refLogs de Nothing
Set = sistema de Nothing
Set = Nothing
Output”-------------------------
----------
-----“
OutPut “acabado en: ¿” Y
Set del "" del
Output del "" del
Output de CStr (ahora) WS = Nothing
” FullLog.Close???
Set FullLog = Nothing
Set de FullLog=unknown FSO = Nothing
Function CurrentDate
hoy = Date
si mes (hoy) < 10 Then
CurrentDate = “0” y CStr (mes (hoy))
Else
CurrentDate = CStr (mes (hoy))Extremo If
del
si día (hoy) < 10 Then
CurrentDate = CurrentDate y “0” y CStr (día (hoy))
Else
CurrentDate = CurrentDate y CStr (día (hoy))Extremo If
CurrentDate = CurrentDate y CStr (año del
(hoy))
si hora (tiempo) < 10 Then
CurrentDate = CurrentDate y “0” y CStr (hora (tiempo))
Else
CurrentDate = CurrentDate y CStr (hora (tiempo))¿El
de If
End Function
Function LogFileName (LogName) del final del
selecciona el
LogFileName del “uso " del caso de LogName
del caso = el
LogFileName servicio de directorio " del caso del
del “del “app " = caso “
LogFileName del
del “dir " del servidor de DNS " = el
LogFileName servicio de la réplica del archivo " del caso del
del “del “dns " = el
LogFileName de la “seguridad " del caso del
del “representante " = el
LogFileName del “sistema " del caso del
del “sec " = texto del text
' FullLog.writeline del
' wscript.echo de la salida de Select
End Function
Sub del final del
del “sistema " (texto)??? FullLog=unknown
End Sub