Home
  •  

Zdroj dat adresáře SYSVOL

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

Zdroj dat adresáře SYSVOL

Knowledge Base article:

Další informace

Zdravý stav sdílené složky Sysvol je pro řadič domény velmi důležitý. Sysvol je sdílená složka na každém řadiči domény, která ukládá kopii veřejných souborů domény, včetně nastavení systémových zásad a zásad skupiny, které jsou replikované na všechny ostatní řadiče domény v dané doméně. Problémy se sdílením SYSVOL brání řádnému fungování zásad skupiny a přihlašovacích skriptů.

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$FrekvenceJak často se monitorování spouští.
TimeoutSecondsint$Config/IntervalSeconds$Časový limitČasový limit v sekundách

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>