Microsoft.Forefront.TMG.Monitor.FirewallAdMembership.DataSource (DataSourceModuleType)

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<DataSourceModuleType ID="Microsoft.Forefront.TMG.Monitor.FirewallAdMembership.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" Selector="$Config/IntervalSeconds$" ParameterType="int"/>

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

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

  </OverrideableParameters>

  <ModuleImplementation Isolation="Any">

    <Composite>

      <MemberModules>

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

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

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

          <WorkingDirectory/>

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

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

          <RequireOutput>true</RequireOutput>

          <Files>

            <File>

              <Name>ForefrontTMGAdMembershipMonitor.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 = "TMG Server Ad Membership 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, TargetObjectName, TargetHostName, bLogSuccessEvent

Dim strNamespaceToUse, strQuery1ToUse, strQuery2ToUse, strQuery3ToUse

Dim strMonitorStatus, strErrorDetail

Dim  dtStart



dtStart = Now



Set oParams = WScript.Arguments

If oParams.Count &lt; 2 then

	Wscript.Quit -1

End if



strMonitorStatus = "0"	

TargetComputer = oParams(0)

bLogSuccessEvent = CBool(oParams(1))



Set oAPI = CreateObject("Mom.ScriptAPI") 

Set oBagState = oAPI.CreateTypedPropertyBag(StateDataType)



strNamespaceToUse = "\ROOT\cimv2"

strQuery1ToUse    = "Select State From Win32_Service Where Name = 'Netlogon'"

strQuery2ToUse    = "Select State From Win32_Service Where Name = 'W32Time'"

strQuery3ToUse    = "Select State From Win32_Service Where Name = 'lanmanworkstation'"





GetMonitorStatus



Sub GetMonitorStatus()

    Dim strSrv1Status, strSrv2Status, strSrv3Status, strSrvs, strRunState

    strSrv1Status = GetServiceStatus(strQuery1ToUse)

    strSrv2Status = GetServiceStatus(strQuery2ToUse)

    strSrv3Status = GetServiceStatus(strQuery3ToUse)

    strSrvs = ""

    strRunState = "Running"



    If ( strSrv1Status = strRunState ) and ( strSrv2Status = strRunState ) and ( strSrv3Status = strRunState ) Then

	        strMonitorStatus = "1"    

	        strErrorDetail = ""

    Else

            strMonitorStatus = "0"

            If Not (strSrv1Status = strRunState) Then 

               strSrvs = "Net Logon" 

            Else

               If Not (strSrv1Status = strRunState) Then 

                  strSrvs = strSrvs &amp; " Windows Time" 

               Else

                  If Not (strSrv1Status = strRunState) Then 

                     strSrvs = strSrvs &amp; " WorkStation" 

                  End IF      

               End IF

            End IF

           

            strErrorDetail = "The " &amp; strSrvs &amp; " service(s) in " &amp; TargetComputer &amp; " are not running."

	End If



    

    If bLogSuccessEvent Then

      strMessage = "The script '" &amp; SCRIPT_NAME &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



Function GetServiceStatus(strQueryToUse)

    Dim objInst, objInstSet, strServStatus

    Set objInstSet = GetWMICollection(TargetComputer, strNamespaceToUse, strQueryToUse)



	If objInstSet.Count &gt; 0 then

		For Each objInst in objInstSet

		    strServStatus = CStr(objInst.Properties_("State").value)

		Next

	End If

GetServiceStatus = strServStatus

End Function



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>