Esse objeto cria uma instância da classe do computador cliente do DFS para cada computador descoberto e é usado para permitir que computadores cliente para monitorem a disponibilidade de namespaces do DFS.
Esse objeto cria uma instância da classe do computador cliente do DFS para cada computador descoberto e é usado para permitir que computadores cliente para monitorem a disponibilidade de namespaces do DFS.
Esse objeto está desabilitado por padrão. Quando habilitado, esse objeto executa o script DFSNClientDiscovery.vbs.
Habilite esse objeto para testar a capacidade do computador de acessar namespaces do DFS, pastas (links) e destinos de pastas. Não habilite o objeto em um grande número de computadores, pois os testes de namespace podem gerar uma grande quantidade de tráfego da rede. Em vez disso, use substituições para habilitar esse objeto somente em computadores específicos.
Target | Microsoft.Windows.Computer |
Enabled | False |
Frequency | 43200 |
Remotable | False |
Discovered Classes and their attribuets: |
---|
ID | Module Type | TypeId | RunAs |
---|---|---|---|
DS | DataSource | Microsoft.Windows.TimedScript.DiscoveryProvider | Default |
<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> Option Explicit
SetLocale("en-us")
Dim SourceType, SourceID, ManagedEntityId, oArgs, oAPI, sDfsClientName
Set oAPI = CreateObject("MOM.ScriptAPI")
If Err.Number <> 0 Then
Wscript.Quit -1
End if
Set oArgs = WScript.Arguments
if oArgs.Count < 4 Then
'call oAPI.LogScriptEvent("DFSNClientDiscovery.vbs", 100, 1, "Expected 4 arguments. There were only " & oArgs.Count & " 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 <> 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) </ScriptBody>
<TimeoutSeconds>300</TimeoutSeconds>
</DataSource>
</Discovery>