Home
  •  

Gegevensbron SYSVOL

Microsoft.Windows.Server.2016.AD.Availability.SysVol.DataSource (DataSourceModuleType)

Gegevensbron SYSVOL

Knowledge Base article:

Aanvullend

De status van de gedeelde map SYSVOL is essentieel voor de domeincontroller. SYSVOL is een gedeelde map op elke domeincontroller waarin een kopie wordt opgeslagen van de openbare bestanden van het domein, inclusief de systeembeleids- en groepsbeleidsinstellingen die naar alle andere domeincontrollers in het domein worden gerepliceerd. Als er problemen zijn met de SYSVOL-share, werken de groepsbeleidsregels en aanmeldingsscripts niet.

Element properties:

TypeDataSourceModuleType
IsolationAny
AccessibilityInternal
RunAsDefault
OutputTypeSystem.PropertyBagData

Member Modules:

ID Module Type TypeId RunAs 
DS DataSource System.CommandExecuterPropertyBagSource Default

Overrideable Parameters:

IDParameterTypeSelectorDisplay NameDescription
IntervalSecondsint$Config/IntervalSeconds$FrequentieHoe vaak de monitor wordt uitgevoerd
TimeoutSecondsint$Config/IntervalSeconds$Time-outTime-out in seconden

Source Code:

<DataSourceModuleType ID="Microsoft.Windows.Server.2016.AD.Availability.SysVol.DataSource" Accessibility="Internal" 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="TimeoutSeconds" type="xsd:integer"/>

  </Configuration>

  <OverrideableParameters>

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

    <OverrideableParameter ID="TimeoutSeconds" Selector="$Config/IntervalSeconds$" 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/AD_Sysvol_Share_DataSource.vbs$</CommandLine>

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

          <RequireOutput>true</RequireOutput>

          <Files>

            <File>

              <Name>AD_Sysvol_Share_DataSource.vbs</Name>

              <Contents><Script>Option Explicit

SetLocale("en-us")



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

'   Script Name - AD Sysvol Share Data Source

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

Function Initialize(ByRef oAPI, ByRef oBag, ByRef oWMI)

    Set oAPI = CreateObject("Mom.ScriptAPI")

    If Err &lt;&gt; 0 Then

        Quit -1

    End If

    Set oBag = oAPI.CreatePropertyBag()

    If Err &lt;&gt; 0 Then

       Initialize = 1

       Exit Function

    End If

    Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}")

    If Err &lt;&gt; 0 Then

       Initialize = 2

       Exit Function

    End If

    Initialize = 0

End Function



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

'  CreateErrorEvent

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

Sub CreateErrorEvent(ByVal eid, ByRef oAPI)

   Dim strMsg

   strMsg = GetErrorMessage(eid)

   Call oAPI.LogScriptEvent("AD_Sysvol_Share_DataSource.vbs", 1000, 1, strMsg)

End Sub



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

'  GetErrorMessage

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

Function GetErrorMessage(ByVal eid)

         Dim strMsg

         Select Case eid

                Case 1 strMsg = "Cannot create propertybag. oAPI.CreatePropertyBag() failed."

                Case 2 strMsg = "Cannot create WMI object."

                Case 3 strMsg = "WMI query failed."

         End Select

         GetErrorMessage = strMsg

End Function



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

'  ExecuteQuery

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

Function ExecuteQuery(ByRef strQuery, ByRef oWMI, ByRef oResult, ByRef oAPI)

         Set oResult = oWMI.ExecQuery(strQuery)

         If Err &lt;&gt; 0 Then

            ExecuteQuery = 3

            Exit Function

         End If

         ExecuteQuery = 0

End Function



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

'

'  Main

'

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

Sub Main()

    Dim iResult

    Dim oAPI

    Dim oBag

    Dim oWMI

    Dim strQuery

    Dim oResult



    strQuery = "Select status from Win32_Share Where Name='SYSVOL'"

    iResult = Initialize(oAPI, oBag, oWMI)

    If iResult &lt;&gt; 0 Then

       CreateErrorEvent iResult, oAPI

       Exit Sub

    End If

    iResult = ExecuteQuery(strQuery, oWMI, oResult, oAPI)

    If iResult &lt;&gt; 0 Then

       CreateErrorEvent iResult, oAPI

       Exit Sub

    End If

    If oResult.Count = 0 Then

       oBag.AddValue "Status", "BAD"

    Else

       oBag.AddValue "Status", "GOOD"

    End If

    oAPI.Return oBag

End Sub



Call Main()

</Script></Contents>

              <Unicode>1</Unicode>

            </File>

          </Files>

        </DataSource>

      </MemberModules>

      <Composition>

        <Node ID="DS"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

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

</DataSourceModuleType>