Home
  •  

File Classification Infrastructure Windows Server 2008 R2 Discovery

Microsoft.Windows.FileServer.Service.FCI.2008R2.Discovery (Discovery)

This object discovers computers that are running Windows Server 2008 R2 and the File Classification Infrastructure.

Knowledge Base article:

Summary

This object discovers instances of the Windows Server 2008 R2 version of the File Classification Infrastructure by using the script DiscoverFCI.vbs to find instances of the File Server Resource Manager service in Windows Server 2008 R2.

Element properties:

TargetMicrosoft.Windows.FileServer.Service.FSRM.Base
EnabledTrue
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.Service.FCI.2008R2.Discovery" Enabled="true" Target="FSRMLib!Microsoft.Windows.FileServer.Service.FSRM.Base" ConfirmDelivery="true" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryClass TypeID="Microsoft.Windows.FileServer.Service.FCI.2008R2">

      <Property TypeID="System!System.Entity" PropertyID="DisplayName"/>

    </DiscoveryClass>

  </DiscoveryTypes>

  <DataSource ID="DS" TypeID="Windows!Microsoft.Windows.TimedScript.DiscoveryProvider">

    <IntervalSeconds>43200</IntervalSeconds>

    <SyncTime/>

    <ScriptName>DiscoverFCI.vbs</ScriptName>

    <Arguments>$MPElement$ $Target/Id$ $Target/Host/Property[Type="Windows!Microsoft.Windows.Computer"]/PrincipalName$</Arguments>

    <ScriptBody><Script>

Option Explicit

SetLocale("en-us")



Dim oAPI, oArgs

Set oAPI = CreateObject("MOM.ScriptAPI")



Set oArgs = WScript.Arguments

if oArgs.Count &lt; 3 Then

  oApi.LogScriptEvent "DiscoverFCI.vbs",6125,4,"Not enough arguments"

  Wscript.Quit -1

End If



Dim SourceID, ManagedEntityId, TargetComputer



SourceId = oArgs(0)

ManagedEntityId = oArgs(1)

TargetComputer = oArgs(2)



Dim oDiscoveryData

set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)



Dim classMan

Dim properties

Set classMan = CreateObject( "Fsrm.FsrmClassificationManager" )

Set properties = classMan.EnumPropertyDefinitions(0)



If properties.Count &gt; 0 Then

    Dim oInst

    set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.Windows.FileServer.Service.FCI.2008R2']$")

    call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)

    call oInst.AddProperty("$MPElement[Name='System!System.Entity']/DisplayName$", Left(TargetComputer, InStr(TargetComputer, ".")-1))

    call oDiscoveryData.AddInstance(oInst)

End If



Call oAPI.Return(oDiscoveryData)

</Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>