Обнаружение клиентского компьютера DFS

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

Этот объект создает экземпляр класса "Клиентский компьютер DFS" для каждого обнаруженного компьютера и используется для включения клиентских компьютеров с целью отслеживания доступности пространств имен DFS.

Knowledge Base article:

Краткое описание

Этот объект создает экземпляр класса "Клиентский компьютер DFS" для каждого обнаруженного компьютера и используется для включения клиентских компьютеров с целью отслеживания доступности пространств имен DFS.

Этот объект по умолчанию отключен. Когда этот объект включен, он выполняет сценарий DFSNClientDiscovery.vbs.

Включите этот объект, чтобы проверить возможность компьютера получать доступ к пространствам имен, папкам (ссылкам) и конечным объектам-папкам DFS. Не включайте данный объект на большом количестве компьютеров, поскольку проверка пространства имен может создать большой объем сетевого трафика. Вместо этого используйте переопределение, чтобы включать данный объект только на определенных компьютерах.

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>