Home
  •  

Zjišťování klientských počítačů DFS

Microsoft.Windows.FileServer.DFSN.DfsClientDiscovery (Discovery)

Tento objekt vytvoří instanci třídy klientského počítače DFS pro každý nalezený počítači a slouží k tomu, aby umožňoval klientským počítačům monitorovat dostupnost služby Obory názvů distribuovaného systému souborů (DFSN).

Knowledge Base article:

Souhrn

Tento objekt vytvoří instanci třídy klientského počítače DFS pro každý nalezený počítači a slouží k tomu, aby umožňoval klientským počítačům monitorovat dostupnost služby Obory názvů distribuovaného systému souborů (DFSN).

Tento objekt je ve výchozím stavu zakázaný. Když je objekt povolen, spouští skript DFSNClientDiscovery.vbs.

Objekt povolte, pokud chcete otestovat schopnost počítače přistupovat k oborům názvů DFS, složkám (odkazům) a cílům složek. Objekt nepovolujte na velkém počtu počítačů, protože testování oboru názvů může vytvořit značný provoz sítě. Místo toho pomocí přepsání povolte tento objekt pouze na konkrétních počítačích.

Element properties:

TargetMicrosoft.Windows.Computer
EnabledFalse
Frequency43200
RemotableFalse

Object Discovery Details:

Discovered Classes and their attribuets:

Member Modules:

ID Module Type TypeId RunAs 
DS DataSource Microsoft.Windows.TimedScript.DiscoveryProvider Default

Source Code:

<Discovery ID="Microsoft.Windows.FileServer.DFSN.DfsClientDiscovery" Enabled="false" Target="Windows!Microsoft.Windows.Computer" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.Windows.FileServer.DFSN.Client"/>

  </DiscoveryTypes>

  <DataSource ID="DS" TypeID="Windows!Microsoft.Windows.TimedScript.DiscoveryProvider">

    <IntervalSeconds>43200</IntervalSeconds>

    <SyncTime/>

    <ScriptName>DFSNClientDiscovery.vbs</ScriptName>

    <Arguments>0 $MPElement$ $Target/Id$ $Target/Property[Type="Windows!Microsoft.Windows.Computer"]/PrincipalName$</Arguments>

    <ScriptBody><Script>

            Option Explicit

            SetLocale("en-us")

            Dim SourceType, SourceID, ManagedEntityId, oArgs, oAPI, sDfsClientName

            Set oAPI = CreateObject("MOM.ScriptAPI")

            If Err.Number &lt;&gt; 0 Then

            Wscript.Quit -1

            End if

            Set oArgs = WScript.Arguments

            if oArgs.Count &lt; 4 Then

            'call oAPI.LogScriptEvent("DFSNClientDiscovery.vbs", 100, 1, "Expected 4 arguments. There were only " &amp; oArgs.Count &amp; " arguments. Exiting script.")

            Wscript.Quit -1

            End If



            Dim oDiscData

            Dim oDfsClient



            SourceType = oArgs(0)

            SourceId = oArgs(1)

            ManagedEntityId = oArgs(2)

            sDfsClientName = oArgs(3)



            set oDiscData = oAPI.CreateDiscoveryData(SourceType, SourceId, ManagedEntityId)

            If Err.Number &lt;&gt; 0 Then

            Wscript.Quit -1

            End if



            set oDfsClient = oDiscData.CreateClassInstance("$MPElement[Name='Microsoft.Windows.FileServer.DFSN.Client']$")

            call oDfsClient.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", sDfsClientName)

            call oDfsClient.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", "DFS Client")

            Call oDiscData.AddInstance(oDfsClient)



            Call oAPI.Return(oDiscData)

          </Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>