Originariamente inviato da s|n3
macchina locale....

ovviamente non devo spottare il servizio com+....devo stoppare un'applicazione com+

(pannellodicontrollo-->administrative tools-->component services-->com+ applications-->mia applicazione.

se stoppo il servizio com+ stoppo TUTTE le applicazioni com+

Sì ... certo ... volevo sapere se il servizio era in locale ...

Per stoppare l'applicazione (dato il suo nome nella variabile sName), puoi provar questo

codice:
On Error Resume Next

Dim oCat As Object
Dim sName As String

Set oCat = CreateObject("COMAdmin.COMAdminCatalog")

sName = "Nome del Package"
    
oCat.ShutdownApplication sName
    
Set oCat = Nothing
Per avviarla, ovviamente al posto del metodo ShutdownApplication, usi il metodo StartApplication, ovvero

oCat.StartApplication sName