Alerta en Asyncronous string data (async_string)

[smartin]

Like it

Up

0

Down

Drop it

::

Hola buenos días,

¿Te refieres a una alerta en la que te muestre la fecha del último registro de la base de datos de virus?

Un saludo,

Sergio

[roberto]

Like it

Up

0

Down

Drop it

::

Buenas tardes Jorge,

Actualmente en la versión Enterprise exíste algún métido más sencillo para realizar esto, pero para la versión Open lo que podrías crear es módulo que monitorizase, del fichero de registro (log) de Symantec, la fecha del último registro de la base de datos de las definiciones y más tarde crear un módulo con una precondición para que ejecutase un script comparando la fecha de dicho log con la actual para comprobar que esa fecha es anterior a 3 días.

Me explico:

-Creas el módulo que monitorice dicho fichero (log) :

http://wiki.pandorafms.com/index.php?title=Pandora:Documentation_es:Configuracion#module_regexp

-Módulo con una precondición:

http://wiki.pandorafms.com/index.php?title=Pandora:Documentation_es:Configuracion#module_precondition_.3Coperaci.C3.B3n.3E_.3Ccomando.3E

Un saludo,

Roberto.

[jorge.loyola]

Like it

Up

0

Down

Drop it

::

SMartín,
Hoy día estoy obteniendo la fecha de la ultima definición instalada del registro por ejemplo, 17/03/2015 y lo que se me estaba ocurriendo es el poder definir en mi condición de alerta la fecha de hoy menos 3 días y si coincide  se dispare la alerta al administrador del antivirus.

Roberto voy a checar lo que me indicas, te aviso del resultado.
Saludos desde Mexico

[jorge.loyola]

Like it

Up

0

Down

Drop it

::

Hola Buenas Tardes, Agradezco su ayuda, lo solucione con el siguiente vbs

Set objShell = CreateObject(“Wscript.Shell”)

strCmdRun = “cmd /c ”
strRegQ = “reg query ”
strRegKey12 = “””HKLMSOFTWARESymantecSymantec Endpoint ProtectionCurrentVersion”””
strRegKey12DEF = “””HKLMSOFTWARESymantecSymantec Endpoint ProtectionCurrentVersionSharedDefs”””
strCmdSw = ” | FIND ”
strRegKey2 = “””PRODUCTVERSION”””
strRegKey1DEF = “””DEFWATCH_10″””

Dim objShell,objDef,objDate,objVer,objRev,objOutFile,objFSO,objNDate

Set objExec12 = objShell.Exec(strCmdRun & strRegQ & strRegKey12 & strCmdSw & strRegKey2)
Set objExec12DEF = objShell.Exec(strCmdRun & strRegQ & strRegKey12DEF & strCmdSw & strRegKey1DEF)

strExecResults = Lcase(objExec12.StdOut.readline)
strExecResultsDEF = Lcase(objExec12DEF.StdOut.readline)

objVersion = mid (strExecResults, 33,4)

Wscript.StdOut.WriteLine “”
Wscript.StdOut.WriteLine “Symantec_Version”
Wscript.StdOut.WriteLine “Version de Symantec Endpoint Protection”
Wscript.StdOut.WriteLine “generic_data”
Wscript.StdOut.WriteLine “” & objVersion & “”
Wscript.StdOut.WriteLine “”

objDEFDate = mid (strExecResultsDEF, 129,8)
objDEFDate =right (objDEFDate ,2)&”/”&mid (objDEFDate,5,2)&”/”& left (objDEFDate,4)
Wscript.StdOut.WriteLine “”
Wscript.StdOut.WriteLine “Symantec_Date_Definiciones”
Wscript.StdOut.WriteLine “Definiciones de Symantec Endpoint Protection”
Wscript.StdOut.WriteLine “async_string”
Wscript.StdOut.WriteLine “” & objDEFDate& “”
Wscript.StdOut.WriteLine “”

if datediff(“d”,objDEFDate ,date()) >=3 then

Wscript.StdOut.WriteLine “”
Wscript.StdOut.WriteLine “Symantec_Status”
Wscript.StdOut.WriteLine “Symantec Endpoint Protection Actualizado”
Wscript.StdOut.WriteLine “generic_proc”
Wscript.StdOut.WriteLine “0”
Wscript.StdOut.WriteLine “”

else

Wscript.StdOut.WriteLine “”
Wscript.StdOut.WriteLine “Symantec_Status”
Wscript.StdOut.WriteLine “Symantec Endpoint Protection Actualizado”
Wscript.StdOut.WriteLine “generic_proc”
Wscript.StdOut.WriteLine “1”
Wscript.StdOut.WriteLine “”

end if

Saludos desde Mexico