Dieses Objekt erstellt eine Instanz der Klasse für den DFS-Clientcomputer für jeden ermittelten Computer; mit ihr werden Clientcomputer für die Überwachung der Verfügbarkeit von DFS-Namespaces aktiviert.
Dieses Objekt erstellt eine Instanz der Klasse für den DFS-Clientcomputer für jeden ermittelten Computer; mit ihr werden Clientcomputer für die Überwachung der Verfügbarkeit von DFS-Namespaces aktiviert.
Dieses Objekt ist standardmäßig deaktiviert. Wenn das Objekt aktiviert ist, führt es das Skript "DFSNClientDiscovery.vbs" aus.
Aktivieren Sie dieses Objekt, um die Fähigkeit eines Computers zum Zugreifen auf DFS-Namespaces, Ordner (Links) und Ordnerziele zu testen. Aktivieren Sie dieses Objekt nicht auf einer großen Anzahl von Computern, da Namespacetests das Netzwerk stark auslasten. Verwenden Sie stattdessen Außerkraftsetzungen, um dieses Objekt nur auf bestimmten Computern zu aktivieren.
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>