Home
  •  

SysVol Veri Kaynağı

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

SysVol Veri Kaynağı

Knowledge Base article:

Ek

Sysvol paylaşılan klasörünün sistem durumu Etki Alanı Denetleyicisi için gereklidir. Sysvol, sistem ilkeleri ve Grup İlkesi ayarları gibi etki alanındaki diğer tüm etki alanı denetleyicilerine çoğaltılan etki alanının ortak dosyalarının bir kopyasını depolayan her etki alanı denetleyicisinde paylaşılan bir klasördür. SYSVOL paylaşım sorunları Grup İlkesi ve oturum açma betiklerinin çalışmasını engeller.

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$Sıklıkİzleyicinin çalıştırılma sıklığı
TimeoutSecondsint$Config/IntervalSeconds$Zaman AşımıSaniye cinsinden zaman aşımı

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>