CS Site Service Discovery
CS_Site_Service_Discovery (WriteActionModuleType)
Element properties: Member Modules:
Source Code: <WriteActionModuleType ID="CS_Site_Service_Discovery" Accessibility="Internal" Comment="{F90288FF-4174-4DC0-B55C-66F4677A90F1}">
<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 = "CS Site"
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>CS Site Service Discovery</Name>
<Parameters/>
<ManagementPackId>[Microsoft.CommerceServer.2007,,1.0.0.1]</ManagementPackId>
</WriteAction>
</MemberModules>
<Composition>
<Node ID="RunScriptAction"/>
</Composition>
</Composite>
</ModuleImplementation>
<InputType>SystemLibrary!System.BaseData</InputType>
</WriteActionModuleType>