HPC 2008 Head Node Contains Database Discovery

Microsoft.HPC.2008.Discovery.HeadNodeContainsDatabase (Discovery)

Element properties:

Object Discovery Details:

Member Modules:

Source Code:

<Discovery ID="Microsoft.HPC.2008.Discovery.HeadNodeContainsDatabase" Enabled="true" Target="Microsoft.HPC.2008.HeadNode" ConfirmDelivery="true" Remotable="true" Priority="Normal">

  <Category>Discovery</Category>

  <DiscoveryTypes>

    <DiscoveryRelationship TypeID="Microsoft.HPC.2008.HeadNodeContainsDatabase"/>

  </DiscoveryTypes>

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

    <IntervalSeconds>86400</IntervalSeconds>

    <SyncTime/>

    <ScriptName>GetHeadNodeContainsDatabase.vbs</ScriptName>

    <Arguments>$MPElement$ $Target/Id$</Arguments>

    <ScriptBody><Script>Option Explicit

SetLocale("en-us")



Main



Sub Main

	Dim args : Set args = WScript.Arguments

	If args.Count &lt; 2 Then

		WScript.Quit -1

	End If



	Dim sourceId, managedEntityId

	sourceId = args(0)

	managedEntityId = args(1)



	Dim momApi : Set momApi = CreateObject("MOM.ScriptAPI")

	Dim data : Set data = momApi.CreateDiscoveryData(0, sourceId, managedEntityId)



	Dim headnode : Set headnode = data.CreateClassInstance("$MPElement[Name='Microsoft.HPC.2008.HeadNode']$")

	Call headnode.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", "$Target/Host/Property[Type='Windows!Microsoft.Windows.Computer']/PrincipalName$")



	Dim instance : Set instance = data.CreateClassInstance("$MPElement[Name='Microsoft.HPC.2008.HeadNode.Database']$")

	Call instance.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", "$Target/Host/Property[Type='Windows!Microsoft.Windows.Computer']/PrincipalName$")

	Call instance.AddProperty("$MPElement[Name='SQL!Microsoft.SQLServer.ServerRole']/InstanceName$", "COMPUTECLUSTER")



	Dim relation : Set relation = data.CreateRelationshipInstance("$MPElement[Name='Microsoft.HPC.2008.HeadNodeContainsDatabase']$")

	relation.Source = headnode

	relation.Target = instance

	Call data.AddInstance(relation)



	Call momApi.Return(data)

End Sub

</Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

  </DataSource>

</Discovery>