Cisco.Ucs.Watcher.Service.Performance.Monitoring.WMI.Counter.Probe (ProbeActionModuleType)

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<ProbeActionModuleType ID="Cisco.Ucs.Watcher.Service.Performance.Monitoring.WMI.Counter.Probe" Accessibility="Public" Batching="false" PassThrough="false">

  <Configuration>

    <xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="Computername" type="xsd:string"/>

    <xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="ServiceName" type="xsd:string"/>

    <xsd:element xmlns:xsd="http://www.w3.org/2001/XMLSchema" minOccurs="1" name="TimeoutSeconds" type="xsd:integer"/>

  </Configuration>

  <OverrideableParameters>

    <OverrideableParameter ID="TimeoutSeconds" Selector="$Config/TimeoutSeconds$" ParameterType="int"/>

  </OverrideableParameters>

  <ModuleImplementation Isolation="Any">

    <Composite>

      <MemberModules>

        <ProbeAction ID="PassThroughProbe" TypeID="System!System.PassThroughProbe"/>

        <ProbeAction ID="VBScriptPropertyBagProbe" TypeID="Windows!Microsoft.Windows.ScriptPropertyBagProbe">

          <ScriptName>ManagementService.PerfData.vbs</ScriptName>

          <Arguments>$Config/ServiceName$ $Config/Computername$</Arguments>

          <ScriptBody><Script>

Option Explicit

SetLocale("en-us")



Dim ServiceName, objWMIService, colService, objService, ComputerName

Dim ProcessID, colPerfData, objPerfData

Dim ElapsedTime, PercentProcessorTime, PercentUserTime, ThreadCount, PageFaultsPersec, IOReadBytesPersec, IOWriteBytesPersec

Dim oAPI, oBag, oInst

ServiceName = WScript.Arguments.Item(0)

ComputerName = Wscript.Arguments.Item(1)

Set oAPI = CreateObject("MOM.ScriptAPI")



Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &amp; ComputerName &amp; "\root\cimv2")

Set colService = objWMIService.ExecQuery("Select * from Win32_Service Where Name = '" + ServiceName + "'")



For Each objService in colService

	ProcessID = objService.ProcessID

Next



If ProcessID &lt;&gt; 0 THEN

	Set colPerfData = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process Where IDProcess = " &amp; ProcessID)

	For Each objPerfData in colPerfData

		ElapsedTime = objPerfData.ElapsedTime

		PercentProcessorTime = objPerfData.PercentProcessorTime

		PercentUserTime = objPerfData.PercentUserTime

		ThreadCount = objPerfData.ThreadCount

		PageFaultsPersec = objPerfData.PageFaultsPersec

		IOReadBytesPersec = objPerfData.IOReadBytesPersec

		IOWriteBytesPersec = objPerfData.IOWriteBytesPersec

	Next

	'Elapsed Time

	Set oBag = oAPI.CreatePropertyBag()

	oBag.AddValue "Object", "Process"

	oBag.AddValue "Instance", ServiceName

	oBag.AddValue "Counter", "Elapsed Time"

	oBag.AddValue "Value", ElapsedTime

	oAPI.AddItem(oBag)

	

	'Percent Processor Time

	Set oBag = oAPI.CreatePropertyBag()

	oBag.AddValue "Object", "Process"

	oBag.AddValue "Instance", ServiceName

	oBag.AddValue "Counter", "% Processor Time"

	oBag.AddValue "Value", PercentProcessorTime

	oAPI.AddItem(oBag)

	

	'Percent User Time

	Set oBag = oAPI.CreatePropertyBag()

	oBag.AddValue "Object", "Process"

	oBag.AddValue "Instance", ServiceName

	oBag.AddValue "Counter", "% User Time"

	oBag.AddValue "Value", PercentUserTime

	oAPI.AddItem(oBag)

	

	'Thread Count

	Set oBag = oAPI.CreatePropertyBag()

	oBag.AddValue "Object", "Process"

	oBag.AddValue "Instance", ServiceName

	oBag.AddValue "Counter", "Thread Count"

	oBag.AddValue "Value", ThreadCount

	oAPI.AddItem(oBag)

	

	'Page Faults/Sec

	Set oBag = oAPI.CreatePropertyBag()

	oBag.AddValue "Object", "Process"

	oBag.AddValue "Instance", ServiceName

	oBag.AddValue "Counter", "Page Faults/sec"

	oBag.AddValue "Value", PageFaultsPersec

	oAPI.AddItem(oBag)	

	

	'IO Read Bytes/sec

	Set oBag = oAPI.CreatePropertyBag()

	oBag.AddValue "Object", "Process"

	oBag.AddValue "Instance", ServiceName

	oBag.AddValue "Counter", "IO Read Bytes/sec"

	oBag.AddValue "Value", IOReadBytesPersec

	oAPI.AddItem(oBag)

	

	'IO Write Bytes/sec

	Set oBag = oAPI.CreatePropertyBag()

	oBag.AddValue "Object", "Process"

	oBag.AddValue "Instance", ServiceName

	oBag.AddValue "Counter", "IO Write Bytes/sec"

	oBag.AddValue "Value", IOWriteBytesPersec

	oAPI.AddItem(oBag)

ELSE

	'Return an empty property bag

	Set oBag = oAPI.CreatePropertyBag()

	oAPI.AddItem(oBag)

END IF

oAPI.ReturnItems</Script></ScriptBody>

          <TimeoutSeconds>$Config/TimeoutSeconds$</TimeoutSeconds>

        </ProbeAction>

      </MemberModules>

      <Composition>

        <Node ID="VBScriptPropertyBagProbe">

          <Node ID="PassThroughProbe"/>

        </Node>

      </Composition>

    </Composite>

  </ModuleImplementation>

  <OutputType>System!System.PropertyBagData</OutputType>

  <TriggerOnly>true</TriggerOnly>

</ProbeActionModuleType>