Bonjour,

j'aimerais afficher via un script VBS, l'état d'un composant COM+.

voici le bout de code que j'ai

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim sAppName
sAppName = "System Application"
Set objCatalog = CreateObject("COMAdmin.COMAdminCatalog")
Dim apps
Set apps = objCatalog.GetCollection("Applications")
apps.Populate
 
' Enumerate through applications looking for AppName.
Dim app
Dim state
For Each app In apps
If app.Name = sAppName Then
state = objCatalog.ServiceCheck(app.Value("ServiceName"))
Wscript.Echo state
End If
Next
je sais que ma methode "objCatalog.ServiceCheck" n'est pas bonne, mais je ne sais pas l'utiliser.

Qui aurait l'amabilité de me venir en aide ?

Merci par avance

Yoann