bug for Each avec wmi ??? besoin d aide

Bonjour, j'ai un gros souci sur mon script j'ai simplifier le code


Set objWMIService = GetObject("winmgmts:\\" & ip2(0) & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SoftwareFeature",,48)
    For Each objItem in colItems

///code

        Next    <<<<<--------- ligne de plantage

Lorsque je ip2(0) est mon ip local le code fonction tres bien mais lorsqu il s agit d une machine du reseau alors que je suis bien admin le code plante erreur 80041001 ligne .... correspondant au next

hors lors que je fait le meme genre de requet sur une autre classe tout marche nikel

Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=3 ",,48)
    For Each objItem in colItems

///code

        Next

marche parfaitement avec toute les IP

j ai besoin d aide

Salut
Admin de ton poste, mais es-tu admin du poste distant ?
Comment est dimensionné "objItem" ?
Le code plante t-il aussi si tu saute tout le code entre le For et le Next ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)