DFS-N: Path Availability Module

Microsoft.Windows.FileServer.DFSN.Library.DFSPathAvailDataSourceModuleType (DataSourceModuleType)

This module determines the availability of the specified path.

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<DataSourceModuleType ID="Microsoft.Windows.FileServer.DFSN.Library.DFSPathAvailDataSourceModuleType" Accessibility="Public" Batching="false">

  <Configuration>

    <xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="IntervalSeconds" type="xsd:integer"/>

    <xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="SyncTime" type="xsd:string"/>

    <xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="UNCPaths" type="xsd:string"/>

    <xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="TimeoutSeconds" type="xsd:integer"/>

  </Configuration>

  <OverrideableParameters>

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

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

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

  </OverrideableParameters>

  <ModuleImplementation Isolation="Any">

    <Composite>

      <MemberModules>

        <DataSource ID="DS" TypeID="Windows!Microsoft.Windows.TimedScript.PropertyBagProvider">

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

          <SyncTime>$Config/SyncTime$</SyncTime>

          <ScriptName>DFSNClientSideMonitoring.vbs</ScriptName>

          <Arguments>$Config/UNCPaths$</Arguments>

          <ScriptBody><Script>

                  Option explicit

                  SetLocale("en-us")

                  On Error Resume Next

                  Dim oAPI, oBag, oArgs, TargetState

                  Set oArgs = WScript.Arguments

                  Set oAPI = CreateObject("MOM.ScriptAPI")

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

                  Wscript.Quit -1

                  End if



                  Set oBag = oAPI.CreatePropertyBag()

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

                  Wscript.Quit -1

                  End if



                  TargetState = "Accessible"

                  if oArgs.Count &lt; 1 Then

                  Call oBag.AddValue("TargetState", TargetState)

                  Call oAPI.Return(oBag)

                  Wscript.Quit

                  End If



                  Dim aRootNames

                  aRootNames = Split(CStr(oArgs(0)), ":")



                  Dim oFSO

                  Set oFSO = MomCreateObject("Scripting.FileSystemObject")



                  Dim e

                  Set e = New Error



                  Dim sTargetPath

                  Dim oFolder

                  Dim oFile



                  For Each sTargetPath In aRootNames

                  On Error Resume Next

                  Set oFolder = oFSO.GetFolder(sTargetPath)

                  e.Save

                  On Error Goto 0



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

                  TargetState = "NotAccessible"

                  call oAPI.LogScriptEvent("DFSNClientSideMonitoring.vbs", 107, 1, "The DFS client side monitoring routine detected that the following destination is unreachable:" &amp; vbCrLf &amp; vbCrLf &amp; sTargetPath &amp; vbCrLf &amp; vbCrLf &amp; "The error code is: " &amp; e.Description)

                  End If

                  Next

                  Call oBag.AddValue("TargetState", TargetState)

                  Call oAPI.Return(oBag)





                  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

                  'call oAPI.LogScriptEvent("DFSNClientSideMonitoring.vbs", 101, 1, "Unable to create automation object '" &amp; sProgramId &amp; "'")

                  WScript.Quit -1

                  End If

                  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>

        </DataSource>

      </MemberModules>

      <Composition>

        <Node ID="DS"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

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

</DataSourceModuleType>