655.aspx

How to get COM+ call times from VB and VBScript

I posted earlier on how to get the com+ call times the unofficial way. Someone asked for a VB example so I put together a com+ call time toolkit that contains the com+ call time tracker and a VBScript example client. You can do a lot of neat stuff with it:

• Use it a ASP page to monitor the call time of your components live


• Use Cacti to show how average call time changes during the day.


• Use the COM+ Admin API to automatically shut down/recycle components with high call times

Installation

• Download the egilh Com+ Tracker


• Extract the files


• Register the DLL in COM+ or run regsvr32 EgilhComTracker.dll in the directory where you extracted the files

Usage
The egilh.ComTracker object only has one method: string getStatistics()

It returns a xml formatted string that contains information about all the running applications. The XML has the following layout:
/applications
  /application
     /classes 
         /class

Example:

<applications>

      <application>

      <guid>{98CDBB6E-3CAF-46F2-ABE6-EABECD6AA4EB}</guid>

      <ID>10</ID>

      <processID>1792</processID>

      <statistics>

            <callsPerSecond>0</callsPerSecond>

            <totalCalls>0</totalCalls>

            <totalClasses>1</totalClasses>

            <totalInstances>1</totalInstances>

      </statistics>

      <classes>

            <class>

                  <progID>Test.Sleep.1</progID>

                  <bound>1</bound>

                  <inCall>0</inCall>

                  <pooled>-1</pooled>

                  <references>1</references>

                  <responseTime>120</responseTime>

                  <callsCompleted>0</callsCompleted>

                  <callsFailed>0</callsFailed>

            </class>

      </classes>

      </application>

</applications>

Test client
The following VB code shows the call times for all classes registered in com+ on the local machine.

Dim oTracker 'As Object

Dim sResult 'As String

Dim oDOM 'As DOMDocument30

Dim oNode 'As MSXML2.IXMLDOMNode

 

'Get the com+ call times

Set oTracker = CreateObject("egilh.ComTracker")

sResult = oTracker.getStatistics()

Set oTracker = Nothing

   

'Display call times

Set oDOM = CreateObject("MSXML2.DomDocument.3.0")

oDOM.loadXML (sResult)

For Each oNode In oDOM.selectNodes("/applications/application/classes/class")

   WScript.echo oNode.selectSingleNode("progID").Text & _

          " call time: " & oNode.selectSingleNode("responseTime").Text

Next