Status d'un ou plusieurs composant COM+

Status d'un ou plusieurs composant COM+ - VB/VBA/VBS - Programmation

Marsh Posté le 11-10-2007 à 18:26:27    

Bonjour,
 
j'aimerais afficher via un script VBS, l'état d'un composant COM+.
 
voici le bout de code que j'ai
 

Code :
  1. Dim sAppName
  2. sAppName = "System Application"
  3. Set objCatalog = CreateObject("COMAdmin.COMAdminCatalog" )
  4. Dim apps
  5. Set apps = objCatalog.GetCollection("Applications" )
  6. apps.Populate
  8. ' Enumerate through applications looking for AppName.
  9. Dim app
  10. Dim state
  11. For Each app In apps
  12. If app.Name = sAppName Then
  13. state = objCatalog.ServiceCheck(app.Value("ServiceName" ))
  14. Wscript.Echo state
  15. End If
  16. 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


Message édité par Kayanwan le 11-10-2007 à 18:26:39

---------------
www.pixelyoz.com - www.eyeofworld.pixelyoz.com - www.emotionofday.pixelyoz.com - www.footproject.pixelyoz.com
Reply

Marsh Posté le 11-10-2007 à 18:26:27   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed