Home
  •  

HIS 2006 Event Generation

HIS_2006_Event_Generation (WriteActionModuleType)

Element properties:

TypeWriteActionModuleType
IsolationAny
AccessibilityInternal
RunAsDefault
InputTypeSystem.BaseData
Comment{95024802-4D9E-4163-AC94-37724071E0B7}

Member Modules:

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

Source Code:

<WriteActionModuleType ID="HIS_2006_Event_Generation" Accessibility="Internal" Comment="{95024802-4D9E-4163-AC94-37724071E0B7}">

  <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>

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

' &lt;name&gt;HIS 2006 Event Gen.vbs&lt;/name&gt;

' &lt;company&gt;Microsoft Corporation&lt;/company&gt;

' &lt;copyright&gt;Copyright (c) Microsoft Corporation 2006&lt;/copyright&gt;

' &lt;summary&gt;

'   Microsoft Host Integration Server 2006 event generation script for use with MOM 2005

' &lt;/summary&gt;

'

' See Management Pack Guide for details on usage

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



OPTION EXPLICIT



Dim oOriginalEvent, oNewEvent

Dim strIndent, strIndent2, strIndent3

Dim i



strIndent="   "

strIndent2=strIndent &amp; strIndent

strIndent3=strIndent2 &amp; strIndent 



ScriptContext.Echo ("Starting HIS Event Gen")



If NOT ScriptContext.IsEvent() then



	ScriptContext.Echo (strIndent &amp; "Not triggered by an event, exiting")

	

else



	' Get original (triggering) event and create new identical event

	' with the properties from the original

	

	set oOriginalEvent=ScriptContext.Event

	set oNewEvent=ScriptContext.CreateEvent



	oNewEvent.Category		  = oOriginalEvent.Category

	oNewEvent.EventNumber	  = oOriginalEvent.EventNumber

	oNewEvent.EventSource	  = oOriginalEvent.EventSource

	oNewEvent.EventType		  = oOriginalEvent.EventType

	oNewEvent.LoggingComputer = oOriginalEvent.LoggingComputer

	oNewEvent.LoggingDomain	  = oOriginalEvent.LoggingDomain

	oNewEvent.LocalTime		  = oOriginalEvent.LocalTime

	oNewEvent.Message		  = oOriginalEvent.Message

	oNewEvent.SourceComputer  = oOriginalEvent.SourceComputer

	oNewEvent.SourceDomain	  = oOriginalEvent.SourceDomain

	oNewEvent.UserDomainName  = oOriginalEvent.UserDomainName

	oNewEvent.UserName		  = oOriginalEvent.UserName

	oNewEvent.UTCTime		  = oOriginalEvent.UTCTime

	

	ScriptContext.Echo (strIndent &amp; "Category: "        &amp; oNewEvent.Category)

	ScriptContext.Echo (strIndent &amp; "EventNumber: "     &amp; oNewEvent.EventNumber)

	ScriptContext.Echo (strIndent &amp; "EventSource: "     &amp; oNewEvent.EventSource)

	ScriptContext.Echo (strIndent &amp; "EventType: "       &amp; oNewEvent.EventType)

	ScriptContext.Echo (strIndent &amp; "LoggingComputer: " &amp; oNewEvent.LoggingComputer)

	ScriptContext.Echo (strIndent &amp; "LoggingDomain: "   &amp; oNewEvent.LoggingDomain)

	ScriptContext.Echo (strIndent &amp; "UserDomainName: "  &amp; oNewEvent.UserDomainName)

	ScriptContext.Echo (strIndent &amp; "UserName: "		&amp; oNewEvent.UserName)

	ScriptContext.Echo (strIndent &amp; "UTCTime: "			&amp; oNewEvent.UTCTime)

		

	for i = 1 to oOriginalEvent.EventParameterCount

		oNewEvent.SetEventParameter(oOriginalEvent.EventParameter(i))

		ScriptContext.Echo (strIndent &amp; "Parameter " &amp; i &amp; ": " &amp; oNewEvent.EventParameter(i))

	next

	

	ScriptContext.Submit oNewEvent



end if



ScriptContext.Echo ("End HIS Event Gen")

</Script></Body>

          <Language>VBScript</Language>

          <Name>HIS 2006 Event Generation</Name>

          <Parameters/>

          <ManagementPackId>[Microsoft.HostIntegrationServer.2006,,1.0.0.1]</ManagementPackId>

        </WriteAction>

      </MemberModules>

      <Composition>

        <Node ID="RunScriptAction"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

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

</WriteActionModuleType>