Detección de equipos cliente DFS

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

Este objeto crea una instancia de clase de equipo cliente DFS por cada equipo detectado, y se utiliza para habilitar a los equipos cliente la supervisión de disponibilidad de espacio de nombres DFS.

Knowledge Base article:

Resumen

Este objeto crea una instancia de clase de equipo cliente DFS por cada equipo detectado, y se utiliza para habilitar a los equipos cliente la supervisión de disponibilidad de espacio de nombres DFS.

Este objeto está deshabilitado de forma predeterminada. Cuando está habilitado, este objeto ejecuta el script DFSNClientDiscovery.vbs.

Habilite este objeto para comprobar la capacidad del equipo para acceder a espacios de nombres DFS, carpetas (vínculos) y destinos de carpetas. No habilite este objeto en un gran número de equipos, ya que las pruebas de espacio de nombres pueden crear gran cantidad de tráfico de red. En su lugar, utilice invalidaciones para habilitar este objeto solo en equipos específicos.

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>