Home
  •  

Sysvol-datakälla

Microsoft.Windows.Server.2012.R2.AD.Availability.SysVol.DataSource (DataSourceModuleType)

Sysvol-datakälla

Knowledge Base article:

Ytterligare

Hälostillståndet för Sysvols delade mapp är nödvändig för domänkontrollanten. Sysvol är en delad mapp på varje domänkontrollant som lagrar en kopia av domänens offentliga filer samt systemprinciper och grupprincipinställningar som replikerades till alla andra domänkontrollanter i domänen. SYSVOL delade problem förebygger grupprincipen och inloggningsskript från att arbeta.

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$FrekvensHur ofta övervakaren körs
TimeoutSecondsint$Config/IntervalSeconds$TidsgränsTidsgräns i sekunder

Source Code:

<DataSourceModuleType ID="Microsoft.Windows.Server.2012.R2.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>