09-25-2014, 12:27 PM
Buenas tardes
Estoy configurando un modulo con un plug-in en VBScript que a su vez genera un conjunto de módulos dinámicamente con una alerta asociada y hasta ahquí me funciona todo bien.
Mi pregunta es la siguiente: Quiero que, según se cumpla una condición en los datos a monitorizar, que la alerta asociada se silencie automáticamente, y entiendo que con el comando module_quiet puedo silenciarla (Adjunto un bloque del código), y ésto es lo que no me funciona pues la alerta persiste. ¿Es esta la sintaxis correcta o estoy haciendo algo mal?
If InStr(UCase(objItem.VolumeName),"SWAP" ) <> 0 Then
Wscript.StdOut.WriteLine "<module>"
wscript.StdOut.WriteLine " <name><![CDATA[DISCO_" & objItem.Name & "_FreePercent%" & "]]></name>"
Wscript.StdOut.WriteLine " <description><![CDATA[Disco " & objItem.Name & " % Espacio Libre ]]></description>"
wscript.StdOut.WriteLine " <type>generic_data</type>"
Wscript.StdOut.WriteLine " <module_group><![CDATA[" & strModGroup & "]]></module_group>"
Wscript.StdOut.WriteLine " <min_warning>10</min_warning>"
Wscript.StdOut.WriteLine " <max_warning>20</max_warning>"
Wscript.StdOut.WriteLine " <min_critical>0</min_critical>"
Wscript.StdOut.WriteLine " <max_critical>9.9</max_critical>"
Wscript.StdOut.WriteLine " <module_quiet>1</module_quiet>"
Wscript.StdOut.WriteLine " <data><![CDATA[" & Percent & "]]></data>"
Wscript.StdOut.WriteLine " <tags><![CDATA[" & strTag & "]]></tags>"
Wscript.StdOut.WriteLine "</module>"
Wscript.StdOut.flush
End If
Muchas gracias de antemano por vuestra ayuda!!!
Estoy configurando un modulo con un plug-in en VBScript que a su vez genera un conjunto de módulos dinámicamente con una alerta asociada y hasta ahquí me funciona todo bien.
Mi pregunta es la siguiente: Quiero que, según se cumpla una condición en los datos a monitorizar, que la alerta asociada se silencie automáticamente, y entiendo que con el comando module_quiet puedo silenciarla (Adjunto un bloque del código), y ésto es lo que no me funciona pues la alerta persiste. ¿Es esta la sintaxis correcta o estoy haciendo algo mal?
If InStr(UCase(objItem.VolumeName),"SWAP" ) <> 0 Then
Wscript.StdOut.WriteLine "<module>"
wscript.StdOut.WriteLine " <name><![CDATA[DISCO_" & objItem.Name & "_FreePercent%" & "]]></name>"
Wscript.StdOut.WriteLine " <description><![CDATA[Disco " & objItem.Name & " % Espacio Libre ]]></description>"
wscript.StdOut.WriteLine " <type>generic_data</type>"
Wscript.StdOut.WriteLine " <module_group><![CDATA[" & strModGroup & "]]></module_group>"
Wscript.StdOut.WriteLine " <min_warning>10</min_warning>"
Wscript.StdOut.WriteLine " <max_warning>20</max_warning>"
Wscript.StdOut.WriteLine " <min_critical>0</min_critical>"
Wscript.StdOut.WriteLine " <max_critical>9.9</max_critical>"
Wscript.StdOut.WriteLine " <module_quiet>1</module_quiet>"
Wscript.StdOut.WriteLine " <data><![CDATA[" & Percent & "]]></data>"
Wscript.StdOut.WriteLine " <tags><![CDATA[" & strTag & "]]></tags>"
Wscript.StdOut.WriteLine "</module>"
Wscript.StdOut.flush
End If
Muchas gracias de antemano por vuestra ayuda!!!