Discussion :

[iconoclaste]

Bonjour,

J'ai le script suivant (largement diffusé dans tous les exemples sur le net)

Code :

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

1
2
3
4
5
6
7
8
strComputer = "TOTO"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
wscript.echo "Erreur=" & err
For Each objItem in colItems
    Wscript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors
Next
Wscript.Echo "Fin"

Ces lignes fonctionnent sur 90% de mes serveurs mais, sur certains, j'ai un blocage au niveau du "For Each" (par blocage, j'entends que le script ne rend pas la main).
L'erreur est toujours 0 (donc après le ExecQuery) et si je mets le "For Each... Next" commentaire, je termine bien le script sur les serveurs où cela bloque.

Ce n'est pas un problème d'accès aux serveurs car si je change la classe (par exemple, si je mets Win32_OperatingSystem) j’accède bien à la propriété Caption de Win32_OperatingSystem (par exemple) de tous mes serveurs (y compris ceux qui bloquent sur le "For Each" de la classe Win32_ComputerSystem)

Voilà, j’espère avoir exposé clairement le phénomène. Maintenant, j'aimerais "contourner" en évitant de lancer le "For each" si je n'ai rien en retour de l'interrogation. J'ai essayé pas mal de choses mais je n'ai plus d'idée...

Quelqu'un peut-il m'aider ?

Merci

[omen999]

bonjour,

je suppose que dans une ligne précédente tu as bien

Code :

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

On Error Resume Next

et si tu insères entre la ligne 4 et 5 ceci :

Code :

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

Wscript.Echo VarType(colItems)

ça donne quoi ?

[iconoclaste]

Bonjour,

Merci de ta réponse qui fait enfin bouger mon programme.
Oui, j'ai le "On Error resume next" mais avec ou sans, c'est pareil.

Par contre, la ligne Vartype a répondu : 9 (puis blocage après)

Je ne sais pas ce que cela veut dire mais c'est la premièere fois que j'ai un résultat en utilisant colItems (colItems.count plante, un if avec colItems plante, etc)

J'espère que 9 va te parler car je reprends espoir...

Merci

[iconoclaste]

En complément j'ai rajouté tous les tests que j'ai trouvé

Code :

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

1
2
3
4
5
6
7
8
Vartype=9
IsObject=True
IsEmpty=False
IsNull=False
IsArray=False
IsDate=False
IsNumeric=False
TypeName=SWbemObjectSet

[omen999]

et les serveurs bloquants ont des points communs non partagés avec les autres comme la version de l'os ?

ce type de problème est souvent posé par une mauvaise config DCOM du serveur appelé

je supprimerais aussi la gestion des erreurs et normalement la ligne 3 devrait afficher en clair le n° de l'erreur
je testerais enfin avec une autre classe win32 simple comme Win32_Keyboard

[iconoclaste]

Sur un serveur qui bloque, cela fonctionne très bien sur une autre classe
Sinon, sur 2 serveurs identiques, l'un fonctionne, l'autre pas. D'un autre côté, que cela ne me renvois pas l'info ne me gène pas... Ce qui me gène c'est que le script reste bloqué et ne passe pas au suivant.
Par contre, supprimer la gestion des erreurs, tu fais cela comment ?
Si c'est mettre "On Error resume next" en commentaire, cela ne change rien au comportement