PowerPath - Path is Dead

MomUIGeneratedRule6c476725973c454e9cd85524dfb5a25e (Rule)

Element properties:

Member Modules:

Source Code:

<Rule ID="MomUIGeneratedRule6c476725973c454e9cd85524dfb5a25e" Enabled="true" Target="Type2ffc7805b58849798533012501337352" ConfirmDelivery="true" Remotable="true" Priority="Normal" DiscardLevel="100">

  <Category>Custom</Category>

  <DataSources>

    <DataSource ID="DS" TypeID="MicrosoftWindowsLibrary6050000!Microsoft.Windows.EventProvider">

      <ComputerName>$Target/Property[Type="MicrosoftWindowsLibrary6050000!Microsoft.Windows.Computer"]/NetworkName$</ComputerName>

      <LogName>System</LogName>

      <Expression>

        <And>

          <Expression>

            <SimpleExpression>

              <ValueExpression>

                <XPathQuery Type="UnsignedInteger">EventDisplayNumber</XPathQuery>

              </ValueExpression>

              <Operator>Equal</Operator>

              <ValueExpression>

                <Value Type="UnsignedInteger">100</Value>

              </ValueExpression>

            </SimpleExpression>

          </Expression>

          <Expression>

            <Or>

              <Expression>

                <SimpleExpression>

                  <ValueExpression>

                    <XPathQuery Type="String">PublisherName</XPathQuery>

                  </ValueExpression>

                  <Operator>Equal</Operator>

                  <ValueExpression>

                    <Value Type="String">EmcpMpx</Value>

                  </ValueExpression>

                </SimpleExpression>

              </Expression>

              <Expression>

                <SimpleExpression>

                  <ValueExpression>

                    <XPathQuery Type="String">PublisherName</XPathQuery>

                  </ValueExpression>

                  <Operator>Equal</Operator>

                  <ValueExpression>

                    <Value Type="String">emcmpio</Value>

                  </ValueExpression>

                </SimpleExpression>

              </Expression>

              <Expression>

                <SimpleExpression>

                  <ValueExpression>

                    <XPathQuery Type="String">PublisherName</XPathQuery>

                  </ValueExpression>

                  <Operator>Equal</Operator>

                  <ValueExpression>

                    <Value Type="String">Emcpbase</Value>

                  </ValueExpression>

                </SimpleExpression>

              </Expression>

            </Or>

          </Expression>

        </And>

      </Expression>

    </DataSource>

  </DataSources>

  <WriteActions>

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

      <ScriptName>DeadPathScript.vbs</ScriptName>

      <Arguments>$Data/EventDescription$</Arguments>

      <ScriptBody><Script>

Option Explicit

On Error Resume Next



Dim oAPI, eventMsg

Dim strPathName, objParameters, MyFile, fso, fileName, strArg

Dim objShell, objEnv, path



  Set fso = CreateObject("Scripting.FileSystemObject")

  Set oAPI = CreateObject("MOM.ScriptAPI")



  set objShell = CreateObject("WScript.Shell")

  set objEnv = objShell.Environment("System")

  path = objEnv("PowerPath_MOM_Path")

  

  If Not fso.FolderExists(path &amp; "\Temp") Then

	fso.CreateFolder(path &amp; "\Temp")

  End If



  Set objParameters = WScript.Arguments



  For Each strArg in objParameters

    If strArg &lt;&gt; chr(13) Then

        eventMsg = eventMsg &amp; " " &amp; strArg

    End If

    

  Next



' Get bus,target and lun numbers in format cXtYdZ, use this as file prefix

  strPathName = objParameters(1)



  fileName = path &amp; "\Temp\" &amp; strPathName &amp; "_dead"



  Set MyFile = fso.CreateTextFile(fileName, True)

  MyFile.Close



  Call oAPI.LogScriptEvent("-", 2333, 2, eventMsg)



  Set strArg = Nothing

  Set eventMsg = Nothing

  Set strPathName = Nothing

  Set objParameters = Nothing

  Set MyFile = Nothing

  Set fso = Nothing

  Set oAPI = Nothing

  Set fileName = Nothing

  Set objShell = Nothing

  Set objEnv = Nothing

  Set path = Nothing</Script></ScriptBody>

      <TimeoutSeconds>1800</TimeoutSeconds>

    </WriteAction>

  </WriteActions>

</Rule>