-
Disparar una alerta desde un codigo .VBS
Buenas tardes:
Mi duda es como puedo disparar una alerta desde un código .vbs. Mi script monitoriza si un web site se está ejecutando ó no, y mi intención es disparar una alerta que envíe un correo ya definido en un alert template cuando el sitio este caído (recogido en la variable strSiteStatus en el código anexo). ¿Es posible automatizar ésto? Si alguien sabe la sintaxis se lo agradecería enormemente.
Esta alerta la necesito automatizar desde código pues debo monitorizar numerosos web sites, y configurar las alertas una a una para cada site sería muy costoso. No se si me he explicado bien.
Adjunto anexo un fragmento de mi código….
Option Explicit
Dim strServer, strServerType, strServerMetaType
Dim objService
Dim objServer
strServer = “localhost”
strServerType = “Web”
strServerMetaType = “W3SVC”
SET objService = GetObject( “IIS://” & strServer & “/” & strServerMetaType )
For Each objServer In objService
If objServer.Class = “IIs” & strServerType & “Server” Then
CuerpoModulo objServer.ServerComment,objServer.ServerState
End If
NextSub CuerpoModulo(strSiteName,strSiteStatus)
Wscript.echo “” ”
Wscript.Echo ””
Wscript.Echo ””
Wscript.Echo ”generic_data ”
Wscript.Echo ”WebSites
wscript.Echo ” ”
Wscript.Echo “
End SubGracias de antemano,
-
3 Replies
-
-
Muchas gracias por responder Ivo.
¿Pero tendras un ejemplo de sintaxis de como usar estos comandos?; entiendo que con generic_proc defines el tipo de módulo desde código, pero ahora no tengo clara la sintaxis de como enviar el email tras dispararse la alerta…
Mil gracias de nuevo y saludos
-
