Sonda monitora interfejsu sieci Web

Microsoft.SystemCenter.WebInterfaceWatcher.Probe (ProbeActionModuleType)

Sprawdź stan witryny sieci Web, sprawdzając kod odpowiedzi HTTP. W przypadku niepowodzenia zwracane są kolekcja właściwości oraz komunikat o szczegółach błędu, który zostanie wykorzystany przez sondę w komunikacie alertu.

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<ProbeActionModuleType ID="Microsoft.SystemCenter.WebInterfaceWatcher.Probe" Accessibility="Internal" Batching="false" PassThrough="false">

  <Configuration>

    <xsd:element minOccurs="1" name="ComputerName" type="xsd:string"/>

    <xsd:element minOccurs="1" name="UrlToCheck" type="xsd:string"/>

    <xsd:element minOccurs="1" name="TimeoutSeconds" type="xsd:integer"/>

    <xsd:element minOccurs="0" name="DebugFlag" type="xsd:boolean"/>

  </Configuration>

  <OverrideableParameters>

    <OverrideableParameter ID="TimeoutSeconds" Selector="$Config/TimeoutSeconds$" ParameterType="int"/>

    <OverrideableParameter ID="DebugFlag" Selector="$Config/DebugFlag$" ParameterType="bool"/>

  </OverrideableParameters>

  <ModuleImplementation Isolation="Any">

    <Composite>

      <MemberModules>

        <ProbeAction ID="PassThrough" TypeID="System!System.PassThroughProbe"/>

        <ProbeAction ID="Script" TypeID="Windows!Microsoft.Windows.ScriptPropertyBagProbe">

          <ScriptName>Microsoft.SystemCenter.WebInterfaceWatcherMonitoring.vbs</ScriptName>

          <Arguments>"$Config/ComputerName$" "$Config/UrlToCheck$" "$Config/DebugFlag$"</Arguments>

          <ScriptBody><Script>

                     'Copyright (c) Microsoft Corporation. All rights reserved.



'*************************************************************************

' $ScriptName:  "Microsoft.SystemCenter.WebInterfaceWatcherMonitoring" $

'

' Purpose:      This script runs a url checks to validate if a website is up and running.

'

' $File:        Microsoft.SystemCenter.WebInterfaceWatcherMonitoring.vbs $

'*************************************************************************



Option Explicit

SetLocale("en-us")



'Event Constants

Const EVENT_TYPE_SUCCESS = 0

Const EVENT_TYPE_ERROR = 1

Const EVENT_TYPE_WARNING = 2

Const EVENT_TYPE_INFORMATION = 4

'Other constants

Const SCRIPT_NAME = "Microsoft.SystemCenter.WebInterfaceWatcherMonitoring"

' Event ID Constants

Const EVENTID_SUCCESS = 99

Const EVENTID_SCRIPT_ERROR = 1000



Const APP_DISCOVERY_CONNECT_FAILURE = -1

Const APP_DISCOVERY_QUERY_FAILURE = -2

Const REGISTRY_CONNECT_FAILURE = -3

Const REGISTRY_READ_FAILURE = -4

Const HKEY_CLASSES_ROOT 	= &amp;H80000000

Const HKEY_CURRENT_USER 	= &amp;H80000001

Const HKEY_LOCAL_MACHINE 	= &amp;H80000002

Const HKEY_USERS 		= &amp;H80000003

Const HKEY_CURRENT_CONFIG 	= &amp;H80000005

Const StateDataType       = 3

Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0

Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1

Const HTTPREQUEST_USERAGENTSTRING = "http_requester/0.1"

Const HTTPREQUEST_SSLERRORIGNOREFLAGS = 13056

Const HTTPREQUEST_ENABLEREDIRECTS = True

Const HTTPREQUEST_ENABLEHTTPSTOHTTPREDIRECT = True



Const WinHttpRequestOption_UserAgentString = 0

Const WinHttpRequestOption_URL = 1

Const WinHttpRequestOption_URLCodePage = 2

Const WinHttpRequestOption_EscapePercentInURL = 3

Const WinHttpRequestOption_SslErrorIgnoreFlags = 4

Const WinHttpRequestOption_SelectCertificate = 5

Const WinHttpRequestOption_EnableRedirects = 6

Const WinHttpRequestOption_UrlEscapeDisable = 7

Const WinHttpRequestOption_UrlEscapeDisableQuery = 8

Const WinHttpRequestOption_SecureProtocols = 9

Const WinHttpRequestOption_EnableTracing = 10

Const WinHttpRequestOption_RevertImpersonationOverSsl = 11

Const WinHttpRequestOption_EnableHttpsToHttpRedirects = 12

Const WinHttpRequestOption_EnablePassportAuthentication = 13

Const WinHttpRequestOption_MaxAutomaticRedirects = 14

Const WinHttpRequestOption_MaxResponseHeaderSize = 15

Const WinHttpRequestOption_MaxResponseDrainSize = 16

Const WinHttpRequestOption_EnableHttp1_1 = 17

Const WinHttpRequestOption_EnableCertificateRevocationCheck = 18



Const WinHttpTimeOut_ResolveTimeout = 5000

Const WinHttpTimeOut_ConnectTimeout = 10000

Const WinHttpTimeOut_SendTimeout = 10000

Const WinHttpTimeOut_ReceiveTimeout = 10000





Dim oAPI, oBagState

Dim oParams, bLogSuccessEvent

Dim strMonitorStatus, strErrorDetail, strMessage

Dim  dtStart



Dim TargetServer, TargetSite, strStatus, intStatus, UserName, UserPassword

Dim objIIS, objWMIService, colItems, objItem

Dim strWebsite, strStatusText



dtStart = Now

Set oAPI = MomCreateObject("Mom.ScriptAPI") 



Set oParams = WScript.Arguments

if oParams.Count &lt; 2 then

      strMessage = "The script '" &amp; SCRIPT_NAME &amp; "' didn't execute successfully because some parameters were missing: Param Count(" &amp; CStr(oParams.Count) &amp; ")"

      CreateEvent EVENTID_SUCCESS, EVENT_TYPE_INFORMATION, strMessage

	  Wscript.Quit -1

End if

strMonitorStatus = "0"	



TargetServer = oParams(0)

TargetSite = oParams(1)

bLogSuccessEvent = CBool(oParams(2))



Set oBagState = oAPI.CreateTypedPropertyBag(StateDataType)

GetMonitorStatus



Sub GetMonitorStatus()

	Dim e

    Dim sWBState, ObjWebSite

    Dim boolStatus



	Set e = New Error

    e.Clear

    On Error Resume Next



    boolStatus = PingSite(TargetSite)

    

    If boolStatus = true Then

        call ReturnResponse(false, "")

    Else

        strErrorDetail = SCRIPT_NAME &amp; ": - WebSite " &amp; TargetSite &amp; " Failure on Server " &amp; TargetServer &amp; " Error Detail: " &amp; strStatusText

        call ReturnResponse(true, strErrorDetail)

    End If



End Sub



'---------------------------------------------------------------------------

' Retrieves the script output.

'---------------------------------------------------------------------------

Sub ReturnResponse(boolErrorFlag, strMessage)

    If boolErrorFlag = true Then

       oBagState.AddValue "State", "0"

       oBagState.AddValue "ErrorDetail", strMessage

    Else

       strMessage = "The script '" &amp; SCRIPT_NAME &amp; "' completed successfully in " &amp; _

                  DateDiff("s", dtStart, Now) &amp; " seconds."    



       oBagState.AddValue "State", "1"

       oBagState.AddValue "ErrorDetail", ""

    End If



    If bLogSuccessEvent Then

       CreateEvent EVENTID_SUCCESS, EVENT_TYPE_INFORMATION, strMessage

    End If

       

    oAPI.AddItem oBagState

    Call oAPI.ReturnItems

    WScript.Quit 

End Sub





Sub CreateEvent(lEventID, lEventType, strMessage)

 oAPI.LogScriptEvent SCRIPT_NAME,lEventID, lEventType, strMessage

End Sub



Function MomCreateObject(ByVal sProgramId)

    Dim oError, strErrorMsg

    Set oError = New Error

    

	On Error Resume Next

	Set MomCreateObject = CreateObject(sProgramId)

	oError.Save

	On Error Goto 0

	

	If oError.Number &lt;&gt; 0 Then 

	   strErrorMsg = "Unable to create automation object '" &amp; sProgramId &amp; "' " &amp; oError.Description

       call ReturnResponse(true, strErrorMsg)

	End If    

End Function



Function PingSite( myWebsite )

    Dim intStatus, objHTTP

    Dim oError

    Set oError = New Error

    On Error Resume Next



    Set objHTTP = MomCreateObject( "WinHttp.WinHttpRequest.5.1" )

    objHTTP.Open "GET", myWebsite, False

    objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"

    objHTTP.SetTimeouts WinHttpTimeOut_ResolveTimeout, WinHttpTimeOut_ConnectTimeout, WinHttpTimeOut_SendTimeout, WinHttpTimeOut_ReceiveTimeout 

    objHTTP.Option(WinHttpRequestOption_UserAgentString) = HTTPREQUEST_USERAGENTSTRING

    objHTTP.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = HTTPREQUEST_SSLERRORIGNOREFLAGS

    objHTTP.Option(WinHttpRequestOption_EnableRedirects) = HTTPREQUEST_ENABLEREDIRECTS

    objHTTP.Option(WinHttpRequestOption_EnableHttpsToHttpRedirects) = HTTPREQUEST_ENABLEHTTPSTOHTTPREDIRECT

    objHTTP.Send



    intStatus = objHTTP.Status



    If bLogSuccessEvent Then

      strMessage = "Return Status " &amp; CStr(intStatus)

      CreateEvent EVENTID_SUCCESS, EVENT_TYPE_INFORMATION, strMessage

    End If  



    On Error Goto 0



    If oError.Number &lt;&gt; 0 Then 

      strMessage = "Error "  &amp; CStr(oError.Number)

      call ReturnResponse(true, strMessage)

    End If



    If intStatus = 200 Or intStatus = 401 Or intStatus = 403 Or intStatus = 407 Then

        PingSite = True

    Else

        If IsEmpty(intStatus) = true Then

           strStatusText = "IIS Down or unavailable"    

        else   

           strStatusText = objHTTP.StatusText

        End If   

        PingSite = False

    End If



    Set objHTTP = Nothing

End Function



Class Error

    Private m_lNumber

    Private m_sSource

    Private m_sDescription

    Private m_sHelpContext

    Private m_sHelpFile

    Public Sub Save()

        m_lNumber = Err.number

        m_sSource = Err.Source

        m_sDescription = Err.Description

        m_sHelpContext = Err.HelpContext

        m_sHelpFile = Err.helpfile

    End Sub

    Public Sub Raise()

        Err.Raise m_lNumber, m_sSource, m_sDescription, m_sHelpFile, m_sHelpContext

    End Sub

    Public Sub Clear()

        m_lNumber = 0

        m_sSource = ""

        m_sDescription = ""

        m_sHelpContext = ""

        m_sHelpFile = ""

    End Sub

    Public Default Property Get Number()

        Number = m_lNumber

    End Property

    Public Property Get Source()

        Source = m_sSource

    End Property

    Public Property Get Description()

        Description = m_sDescription

    End Property

    Public Property Get HelpContext()

        HelpContext = m_sHelpContext

    End Property

    Public Property Get HelpFile()

        HelpFile = m_sHelpFile

    End Property    

End Class

                  </Script></ScriptBody>

          <TimeoutSeconds>$Config/TimeoutSeconds$</TimeoutSeconds>

        </ProbeAction>

      </MemberModules>

      <Composition>

        <Node ID="Script">

          <Node ID="PassThrough"/>

        </Node>

      </Composition>

    </Composite>

  </ModuleImplementation>

  <OutputType>System!System.PropertyBagData</OutputType>

  <TriggerOnly>true</TriggerOnly>

</ProbeActionModuleType>