EVAPerf vdg Write Action Module Type

EVAPerf.vdg.WriteActionModuleType (WriteActionModuleType)

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<WriteActionModuleType ID="EVAPerf.vdg.WriteActionModuleType" Accessibility="Internal" Batching="false">

  <Configuration>

    <xsd:element minOccurs="1" name="EvaName" type="xsd:string"/>

    <xsd:element minOccurs="1" name="EvaPerfPath" type="xsd:string"/>

  </Configuration>

  <OverrideableParameters>

    <OverrideableParameter ID="EvaName" Selector="$Config/EvaName$" ParameterType="string"/>

  </OverrideableParameters>

  <ModuleImplementation Isolation="Any">

    <Composite>

      <MemberModules>

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

          <ScriptName>Evaperf_vdg.vbs</ScriptName>

          <Arguments>"$Config/EvaPerfPath$" $Config/EvaName$</Arguments>

          <ScriptBody><Script><![CDATA[' Executes EVAPerf to dump data into text file.

' The data is then treated by collection rules

'

SetLocale("en-us")

TargetEVA = ""

Dim oArgs

Set oArgs = WScript.Arguments



Evaperf_Path = oArgs(0)



if oArgs.Count = 2 Then

    TargetEVA = " -sz " & oArgs(1)

End If



Set WshShell = CreateObject("WScript.Shell")



	strCommand = "CMD /c " & Chr(34) & Evaperf_Path & "\evaperf.exe" & Chr(34) & " vdg" & TargetEVA & " -csv > c:\temp\EVAPERF_vdg.csv"



	WshShell.Run(strcommand)



	strCommand = "CMD /c " & Chr(34) & Evaperf_Path & "\evaperf.exe" & Chr(34) & " cs" & TargetEVA & " -csv > c:\temp\EVAPERF_cs.csv"



	WshShell.Run(strcommand)



]]></Script></ScriptBody>

          <TimeoutSeconds>30</TimeoutSeconds>

        </WriteAction>

      </MemberModules>

      <Composition>

        <Node ID="DS"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

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

</WriteActionModuleType>