Microsoft Windows CCS 2003 Head Node Service Discovery
Microsoft_Windows_CCS_2003_Head_Node_Service_Discovery (WriteActionModuleType)
Performs service discovery on head nodes
Element properties: Member Modules:
Source Code: <WriteActionModuleType ID="Microsoft_Windows_CCS_2003_Head_Node_Service_Discovery" Accessibility="Internal" Comment="{369FEBF3-7D65-467E-8F2F-A24E89B6DF61}">
<Configuration>
<IncludeSchemaTypes>
<SchemaType>MomBackwardCompatibility!System.Mom.BackwardCompatibility.AlertGenerationSchema</SchemaType>
</IncludeSchemaTypes>
<xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" name="AlertGeneration" type="AlertGenerationType"/>
<xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" name="InvokerType" type="xsd:integer"/>
</Configuration>
<ModuleImplementation>
<Composite>
<MemberModules>
<WriteAction ID="RunScriptAction" TypeID="MomBackwardCompatibility!System.Mom.BackwardCompatibility.ScriptResponse">
<AlertGeneration>$Config/AlertGeneration$</AlertGeneration>
<InvokerType>$Config/InvokerType$</InvokerType>
<Body><Script>
Sub Main()
Dim oDiscData
Dim oCollection
Dim oInstance
Set oDiscData = ScriptContext.CreateDiscoveryData
Set oCollection = oDiscData.CreateCollection
oCollection.AddScopeFilter "ComputerName", ScriptContext.TargetComputerIdentity
oCollection.ClassID = "Head Node"
Set oInstance = oCollection.CreateInstance
oInstance.AddKeyProperty "Server Name", ScriptContext.TargetNetbiosComputer
oCollection.AddInstance oInstance
oDiscData.AddCollection oCollection
ScriptContext.Submit oDiscData
End Sub
</Script> </Body>
<Language>VBScript</Language>
<Name>Microsoft Windows CCS 2003 Head Node Service Discovery</Name>
<Parameters/>
<ManagementPackId>[Microsoft.Windows.Server.ComputeCluster.2003,,1.0.0.1]</ManagementPackId>
</WriteAction>
</MemberModules>
<Composition>
<Node ID="RunScriptAction"/>
</Composition>
</Composite>
</ModuleImplementation>
<InputType>SystemLibrary!System.BaseData</InputType>
</WriteActionModuleType>