Discussion :

[kayanwan]

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

[ced600]

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

[kayanwan]

Difficilement, j'étais dejà tomber dessus

je vais essyer de rentre + en profondeur.

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

[RadPAT]

Salut,

voici ce que me sort le scriptomatic :

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
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++

[kayanwan]

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

mais l'outil est pas mal du tout

[omen999]

salut,
ton code est du copié/collé un peu hasardeux
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
tu peux en revanche retirer le nom de service que prendra l'application com+ avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

app.Value("ServiceName")

ensuite utiliser la classe WMI Win32_Service pour vérifier le statut du service

[kayanwan]

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

merci de ton aide

[omen999]

je ne recherche pas le status d'un service,

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

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)

[ced600]

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

[SfJ5Rpw8]

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

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...

[kayanwan]

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

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é
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à

voilou.

[omen999]

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"
il ne me semble pas que l'objet administration com+ permette de connaitre l'état de ton composant.

[kayanwan]

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"
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