Server Discovery for Windows Server 2008 R2

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

This object discovers the Server service on computers running Windows Server 2008 R2.

Knowledge Base article:

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Microsoft.Windows.FileServer.Service.SMB.2008R2.Discovery" Enabled="true" Target="FileServicesR2!Microsoft.Windows.FileServer.2008R2" ConfirmDelivery="false" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

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

    <DiscoveryRelationship TypeID="FileServices!Microsoft.Windows.FileServer.Contains.Service"/>

  </DiscoveryTypes>

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

    <IntervalSeconds>43200</IntervalSeconds>

    <SyncTime/>

    <ScriptName>DiscoverSMB.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

  Wscript.Quit -1

End If



Dim SourceID, ManagedEntityId, TargetComputer



SourceId = oArgs(0)

ManagedEntityId = oArgs(1)

TargetComputer = oArgs(2)



Dim oDiscoveryData, oInst, oRel, OInstFs

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



set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='Microsoft.Windows.FileServer.Service.SMB.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)



''

'' Since we are using "contains" - we have to now discover the class instance above us.  If it is

'' already discovered, Ops Manager will recognize this as a reference count increase and not a

'' separate discovery because the key property is the same.

''



set oInstFs = oDiscoveryData.CreateClassInstance("$MPElement[Name='FileServicesR2!Microsoft.Windows.FileServer.2008R2']$")

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

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

call oDiscoveryData.AddInstance(oInstFs)



''

'' Now we have to also create an instance of the relationship to link this Service instance to its parent (FileServer)

''



Set oRel = oDiscoveryData.CreateRelationshipInstance("$MPElement[Name='FileServices!Microsoft.Windows.FileServer.Contains.Service']$")

oRel.Source = oInstFs

oRel.Target = oInst

Call oDiscoveryData.AddInstance(oRel)



Call oAPI.Return(oDiscoveryData)



          </Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>