Status d'un ou plusieurs composant COM+

Version imprimable

Bonjour,

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

voici le bout de code que j'ai
Code:

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

12/10/2007, 10h21
ced600

Est ce que cette page te permet de comprendre comment utiliser l'objet ?
http://msdn2.microsoft.com/en-us/library/ms686842.aspx
12/10/2007, 12h34
kayanwan

Difficilement, j'étais dejà tomber dessus :P

je vais essyer de rentre + en profondeur.

Si tu as une idée, je suis preuneur.

Salut,

voici ce que me sort le scriptomatic :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
On Error Resume Next
 
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
 
arrComputers = Array("L3CFL14")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="
 
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DCOMApplication", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
 
   For Each objItem In colItems
      WScript.Echo "AppID: " & objItem.AppID
      WScript.Echo "Caption: " & objItem.Caption
      WScript.Echo "Description: " & objItem.Description
      WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
      WScript.Echo "Name: " & objItem.Name
      WScript.Echo "Status: " & objItem.Status
      WScript.Echo
   Next
Next
 
 
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm: 
	WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
	Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
	& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function

Avec WMI Namespace = root\cimv2 et WMI class = Win32_DCOMApplication

Pour les p'tits malheureux qui seraient passé à coté du scriptomatic V2 :

http://www.microsoft.com/downloads/d...displaylang=en

A++

12/10/2007, 15h17
kayanwan

ce sont les application DCOM qui sont listées, et non les components services !

mais l'outil est pas mal du tout
12/10/2007, 15h28
omen999

salut,
ton code est du copié/collé un peu hasardeux :aie:
en réalité, la méthode servicecheck n'a pas été bien comprise par son auteur original
cette méthode n'accepte qu'une valeur (const COMAdminServiceLoadBalanceRouter=1) qui ne sert qu'à tester le component load balancing :mrgreen:
tu peux en revanche retirer le nom de service que prendra l'application com+ avec

Code:

app.Value("ServiceName")

ensuite utiliser la classe WMI Win32_Service pour vérifier le statut du service
12/10/2007, 15h36
kayanwan

je ne recherche pas le status d'un service, mais plutot d'un composant COM.

merci de ton aide
12/10/2007, 16h31
omen999

Citation:

je ne recherche pas le status d'un service,

alors ta référence à la méthode servicecheck devient incompréhensible :calim2:

qu'entends-tu par statut d'un composant ?

(tu as remarqué qu'avec ton code, tu es resté au niveau de l'application com+ et non de ses composants)
12/10/2007, 16h45
ced600

Citation:

Pour les p'tits malheureux qui seraient passé à coté du scriptomatic V2 :

http://www.microsoft.com/downloads/d...displaylang=en

Je ne connaissais pas, mais je le trouve très interessant :D
12/10/2007, 17h03
SfJ5Rpw8

Citation:

Envoyé par ced600

Je ne connaissais pas, mais je le trouve très interessant :D

j'ai déjà utilisé ... mais jamais pris le temps de comprendre comment cela marche ...

si une bonne âme se proposer pour nous écrire un tuto en français ... ce serai une bonne idée .... non...:roll:
12/10/2007, 17h18
kayanwan

Citation:

Envoyé par omen999

alors ta référence à la méthode servicecheck devient incompréhensible :calim2:

qu'entends-tu par statut d'un composant ?

(tu as remarqué qu'avec ton code, tu es resté au niveau de l'application com+ et non de ses composants)

Euh.. hmmm, mon code, je l'ai plsu ou moins récupéré :roll:
je débute en VBS/WMI & Co

En fait, j'ai une application qui utilise les composants COM+
Ces derniers peuvent avoir plusieurs états (STOP, STARTED, ...)

J'aimerais connaitre leur status.
Status que l'on ne voit pas dans la MMC, seulement via des objets.

Actuellement, j'arrive à arreter ou démarrer les composants COM+, mais ça s'arrette là :cry:

voilou.
12/10/2007, 18h03
omen999

Citation:

hmmm, mon code, je l'ai plsu ou moins récupéré

j'avais remarqué...
donc il ne s'agirait pas d'une application serveur mais d'une application bibliothèque et dont le nom n'est pas "System Application" :aie:
il ne me semble pas que l'objet administration com+ permette de connaitre l'état de ton composant.
15/10/2007, 15h17
kayanwan

Citation:

Envoyé par omen999

j'avais remarqué...
donc il ne s'agirait pas d'une application serveur mais d'une application bibliothèque et dont le nom n'est pas "System Application" :aie:
il ne me semble pas que l'objet administration com+ permette de connaitre l'état de ton composant.

system application était seulement pour faire le test avec le composant "System Application" sui se trouve dans les composant COM+

Sinon, j'ai récupéré 2/3 trucs, je vais essayer d'en tirer quelqueschoses.

je vosu tiens au jus :yaisse2: