Add a ref in your project to the "COM+ 1.x Admin Type Library", then you can use the COMAdminCatalog object to do this.
Code:
Dim oCatalog As COMAdmin.COMAdminCatalog
Set oCatalog = CreateObject("COMAdmin.COMAdminCatalog")
oCatalog.ShutdownApplication "PackageName" ' to shut it down
oCatalog.StartApplication "PackageName" ' to start it
If you want to do it for all applications, you can use one of the collections:
Code:
Dim oPackages As Object
Set oPackages = oCatalog.GetCollection("Applications")
oPackages.Populate
Dim oPackage As COMAdmin.COMAdminCatalogObject
For Each oPackage In oPackages
oCatalog.ShutdownApplication oPackage.Value("Name")
Next
hth
Phil
How to start COM+ services?
