Источник данных для скрипта производительности "Отклик основного контроллера домена"

Microsoft.Windows.AD.DomainMemberPerspective.Performance.PdcResponse.DataSource (DataSourceModuleType)

Источник данных для мониторов производительности "Отклик основного контроллера домена".

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<DataSourceModuleType ID="Microsoft.Windows.AD.DomainMemberPerspective.Performance.PdcResponse.DataSource" Accessibility="Internal" Batching="false">

  <Configuration>

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

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

  </Configuration>

  <OverrideableParameters>

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

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

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

          <RequireOutput>true</RequireOutput>

          <Files>

            <File>

              <Name>PDC_Ping_Bind_Performance.vbs</Name>

              <Contents><Script>'*************************************************************************

' Script Name - Ping and Bind PDC Performance 

'

' Purpose     - Pings and binds to the PDC FSMO holder

'               and returns the time taken for each operation

'               

' (c) Copyright 2014, Microsoft Corporation, All Rights Reserved

' Proprietary and confidential to Microsoft Corporation              

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



Option Explicit



SetLocale("en-us")



' TypedPropertyBag

const PerformanceDataType = 2



Sub Main()



  Dim oAPI, oBag, oRootDSE, oDomain, oFsmo

  Dim oPing, oNtds, oFsmoHolder, dtStart, iTime

  Dim sStatusPingInstance, sStatusBindInstance



  Set oAPI = CreateObject("Mom.ScriptAPI")  



  On Error Resume Next



  Set oRootDSE = GetObject("LDAP://rootDSE")



  Set oDomain = GetObject ("LDAP://" &amp; oRootDSE.Get("defaultNamingContext"))



  oFsmo = oDomain.Get("fSMORoleOwner")



  Set oNtds = GetObject("LDAP://" &amp; oFsmo)

  Set oFsmoHolder = GetObject(oNtds.Parent)



  dtStart = Now

  Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" &amp; oFsmoHolder.dnsHostName &amp; "'") 

  iTime = DateDiff("s", dtStart, Now)



  Set oBag= oAPI.CreateTypedPropertyBag(PerformanceDataType) 

  Call oBag.AddValue("StatusObject", "PDC Response Time")

  Call oBag.AddValue("StatusCounter", "PDC Ping Time")

  Call oBag.AddValue("StatusInstance", sStatusPingInstance)

  Call oBag.AddValue("StatusValue", "" &amp; (iTime / 1000) ) 

  Call oAPI.addItem(oBag) 

  

  dtStart = Now

  Set oBind = GetObject("LDAP://" &amp; oFsmoHolder.dnsHostName &amp; "/rootDSE")

  iTime = DateDiff("s", dtStart, Now)



  Set oBag= oAPI.CreateTypedPropertyBag(PerformanceDataType) 

  Call oBag.AddValue("StatusObject", "PDC Response Time")

  Call oBag.AddValue("StatusCounter", "PDC Bind Time")

  Call oBag.AddValue("StatusInstance", sStatusBindInstance)

  Call oBag.AddValue("StatusValue", "" &amp; (iTime / 1000 )) 

  Call oAPI.addItem(oBag) 



  oAPI.ReturnItems 



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>