Home
  •  

DFS Client Computer Discovery

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

This object creates an instance of the DFS Client Computer class for each discovered computer, and is used to enable client computers to monitor the availability of DFS Namespaces.

Knowledge Base article:

Summary

This object creates an instance of the DFS Client Computer class for each discovered computer, and is used to enable client computers to monitor the availability of DFS Namespaces.

This object is disabled by default. When enabled, this object runs the DFSNClientDiscovery.vbs script.

Enable this object to test a computer’s ability to access DFS namespaces, folders (links) and folder targets. Do not enable this object on a large number of computers because the namespace testing can create a large amount of network traffic. Instead, use overrides to enable this object only on specific computers.

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>