Graceful restart of COM+ applications on Windows 2000

Hi,
I am trying to programmatically re-start a COM+ application using VBScript
and "COM+ Admin" automation library. In Win XP, its all taken care by COM+ itself
when you set the "Pooling & Recycling" properties. But in Windows 2000,
scripting seems to be the only way. An outline of the script:

Code:

---

   
    Set catalog = CreateObject("COMAdmin.COMAdminCatalog.1")
    catalog.ShutdownApplication("My Appln")
    catalog.StartApplication("My Appln")

---

The restart works fine but the active clients at the time of restart are
terminated abruptly. Is there anyway that I can do a graceful restart?
Or in other words, can i somehow get the number of active instances of each
component in a package, so that the script can wait till this count becomes zero,
before restarting ? I tried the other automation library "COM+ Services", but no clue.
Thanks in advance.

Regards,
Venkat