Home
  •  

Firewall Css Availability Data Source Module Type

Microsoft.ISAServer.2006.Monitor.FirewallCssAvailability.DataSource (DataSourceModuleType)

This module handle the implementations for monitoring the availability of the Firewall Css instances.

Element properties:

TypeDataSourceModuleType
IsolationAny
AccessibilityPublic
RunAsDefault
OutputTypeSystem.PropertyBagData

Member Modules:

ID Module Type TypeId RunAs 
DS DataSource System.CommandExecuterPropertyBagSource Default

Overrideable Parameters:

IDParameterTypeSelectorDisplay NameDescription
IntervalSecondsint$Config/IntervalSeconds$Interval SecondsThis is the amount of seconds between each execution.
LogSuccessEventstring$Config/LogSuccessEvent$Log Success EventThis flag provide a way to enable a returning message with data content from the execution.
TimeoutSecondsint$Config/TimeoutSeconds$Timeout SecondsThis is the timeout seconds to wait until cancelling this execution.

Source Code:

<DataSourceModuleType ID="Microsoft.ISAServer.2006.Monitor.FirewallCssAvailability.DataSource" Accessibility="Public" Batching="false">

  <Configuration>

    <xsd:element name="IntervalSeconds" type="xsd:int"/>

    <xsd:element name="TargetComputerName" type="xsd:string"/>

    <xsd:element name="LogSuccessEvent" type="xsd:boolean"/>

    <xsd:element name="TimeoutSeconds" type="xsd:int"/>

  </Configuration>

  <OverrideableParameters>

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

    <OverrideableParameter ID="LogSuccessEvent" ParameterType="string" Selector="$Config/LogSuccessEvent$"/>

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

  </OverrideableParameters>

  <ModuleImplementation>

    <Composite>

      <MemberModules>

        <DataSource ID="DS" TypeID="System!System.CommandExecuterPropertyBagSource">

          <IntervalSeconds>$Config/IntervalSeconds$</IntervalSeconds>

          <ApplicationName>%windir%\system32\cscript.exe</ApplicationName>

          <WorkingDirectory/>

          <CommandLine>//nologo $file/ISA2006CssAvailabilityMonitor.vbs$ "$Config/TargetComputerName$" "$Config/LogSuccessEvent$"</CommandLine>

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

          <RequireOutput>true</RequireOutput>

          <Files>

            <File>

              <Name>ISA2006CssAvailabilityMonitor.vbs</Name>

              <Contents><Script>

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

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 = "ISA Object Monitor"

' 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



Dim oAPI, oBagState

Dim oParams, TargetComputer, bLogSuccessEvent

Dim strMonitorStatus, strErrorDetail, strObjectName, MonitorOption, boolCheckAll

Dim dtStart, intGroupType



dtStart = Now



Set oParams = WScript.Arguments

If oParams.Count &lt; 2 then

	Wscript.Quit -1

End if



strMonitorStatus = "1"

strErrorDetail   = "" 	

TargetComputer = oParams(0)

bLogSuccessEvent = CBool(oParams(1))



boolCheckAll = false



Set oAPI = CreateObject("Mom.ScriptAPI") 

Set oBagState = oAPI.CreateTypedPropertyBag(StateDataType)



GetMonitorStatus



Sub GetMonitorStatus()

    Dim objRoot, objSrv

    Dim intCCSStatus  , strCSSServName 

    Set objRoot = CreateObject("FPC.Root")

    Set objSrv = objRoot.GetContainingServer()

    intCCSStatus = objSrv.DistributionStatus.Status

    strCSSServName = objSrv.DistributionStatus.ConfigurationStorageServer



    Dim oError

    Set oError = New Error

    

	On Error Resume Next



    If IsEnabled = 2 Then

        strMonitorStatus = "1" 

        strErrorDetail = "" 

    else

		strMonitorStatus = "0" 

        strErrorDetail = " Error: Connection To CSS Server" &amp; strCSSServName &amp; " Fail."

    End If

	oError.Save

	On Error Goto 0





    If bLogSuccessEvent Then

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

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

      CreateEvent EVENTID_SUCCESS, EVENT_TYPE_INFORMATION, strMessage

    End If  



    oBagState.AddValue "State", strMonitorStatus

    oBagState.AddValue "ErrorDetail", strErrorDetail

    oAPI.AddItem oBagState

    Call oAPI.ReturnItems

End Sub



Sub CreateEvent(lEventID, lEventType, strMessage)

 oAPI.LogScriptEvent SCRIPT_NAME,lEventID, lEventType, strMessage

End Sub



Function GetWMICollection(TargetComputerToUse, strNamespace, strQuery)

    Dim WbemSrv, WbemObjectSet

    Set WbemSrv = Getobject("winmgmts:{impersonationLevel=impersonate}!\\" &amp; TargetComputerToUse &amp; strNamespace)

    Set WbemObjectSet = WbemSrv.ExecQuery(strQuery)

    Set GetWMICollection = WbemObjectSet

End Function



Function MomCreateObject(ByVal sProgramId)

    Dim oError

    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 ThrowScriptError "Unable to create automation object '" &amp; sProgramId &amp; "'", oError

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></Contents>

              <Unicode>1</Unicode>

            </File>

          </Files>

        </DataSource>

      </MemberModules>

      <Composition>

        <Node ID="DS"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

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

</DataSourceModuleType>