IBM License Server Trigger

IBM.LicenseServer.Trigger (WriteActionModuleType)

Element properties:

Member Modules:

Source Code:

<WriteActionModuleType ID="IBM.LicenseServer.Trigger" Accessibility="Public">

  <Configuration>

    <xsd:element name="LicenseLevel" type="xsd:string"/>

    <xsd:element name="LicenseToken" type="xsd:string"/>

  </Configuration>

  <ModuleImplementation>

    <Composite>

      <MemberModules>

        <WriteAction ID="WA" TypeID="Windows!Microsoft.Windows.ScriptWriteAction">

          <ScriptName>IBMLicenseServerTrigger.vbs</ScriptName>

          <Arguments>"$Target/Property[Type="IBM.LicenseServer"]/LicenseLevel$" "$Target/Property[Type="IBM.LicenseServer"]/LicenseToken$"</Arguments>

          <ScriptBody><Script>



SetLocale("en-us")



Dim LicenseLevel

Dim LicenseToken



If (WScript.Arguments.Count &lt; 2) Then

  WScript.Quit -1

End If

LicenseLevel = WScript.Arguments.Item(0)

LicenseToken = WScript.Arguments.Item(1)







Set SCOMServer = WScript.CreateObject("IBM.SystemsManagement.SCOMHelper.SCOMServer")



Call SCOMServer.GenerateLicense(LicenseLevel, LicenseToken)



'-----------------------------------------------------------------------------

' End of Main 

'-----------------------------------------------------------------------------

                                </Script></ScriptBody>

          <TimeoutSeconds>300</TimeoutSeconds>

        </WriteAction>

      </MemberModules>

      <Composition>

        <Node ID="WA"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

  <OutputType>System!System.CommandOutput</OutputType>

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

</WriteActionModuleType>