Project Server Service Discovery

Project_Server_Service_Discovery (WriteActionModuleType)

Element properties:

Show References:
- Rules (1)

Type	WriteActionModuleType
Isolation	Any
Accessibility	Internal
RunAs	Default
InputType	System.BaseData
Comment	{85FCB8C5-1B5D-4925-84F3-EB117833FA32}

Member Modules:

ID	Module Type	TypeId	RunAs
RunScriptAction	WriteAction	System.Mom.BackwardCompatibility.ScriptResponse	Default

Source Code:

<WriteActionModuleType ID="Project_Server_Service_Discovery" Accessibility="Internal" Comment="{85FCB8C5-1B5D-4925-84F3-EB117833FA32}">

  <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 = "Project Server"



	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>Project Server Service Discovery</Name>

          <Parameters/>

          <ManagementPackId>[Microsoft.Office.ProjectServer.2007,,1.0.0.1]</ManagementPackId>

        </WriteAction>

      </MemberModules>

      <Composition>

        <Node ID="RunScriptAction"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

  <InputType>SystemLibrary!System.BaseData</InputType>

</WriteActionModuleType>