[..] erreur avec ObjCreate

[Rapace15]

Bonjour à tous,

Mon service gère un parc de 500 micros sous XP. J'ai créé un IconTray pour pousser une boite à raccourcis aux utilisateurs du réseau. Cela fonctionne très bien, mais je me retrouve avec une erreur bizarre sur certains postes (cf ci desous).

Ici le message d'erreur sur fichier compilé

err_sumitray.JPG (8.3 Kio) Vu 1430 fois

En recherchant le bug, je me suis aperçu que j'ai une erreur systématiquement lorsque j'utilise la commande suivante (ligne dans la boucle FOR) :

Code : Tout sélectionner

Variable globale de stockage des commandes
Global $commands = ObjCreate("Scripting.Dictionary")

for $id=1 to 5
    [b]$commands.item($id) = "Commande " & $id[/b]
Next
 

Cette syntaxe fonctionne sur de nombreux postes, mais j'ai des plantage systématiquement sur une dizaine de poste.
Quelqu'un aurait-il une piste SVP ?

[zeshrek]

Hmmm... si ton $command.item correspond a un tableau, il faut des crochets pas des parentheses.
Sinon, il faut voir a quoi correspondent ces items du $commands

[Tlem]

D'après les éléments donnés, la conclusion qui s'impose est que Global $commands = ObjCreate("Scripting.Dictionary") n'a pas fonctionné (environnement non disponible peut être) et donc $commands n'est pas un objet.
Donc forcément, la suite ne peut pas fonctionner.
Essayez de rajouter ceci avant la boucle For :

Code : Tout sélectionner

If Not IsObj ($commands) Then
     MsgBox(0, "Erreur", "$commands n'est pas un objet")
     Exit
EndIf

[Rapace15]

Merci de vos réponses.
En fait pour faire mon tray, je me suis servi de ce post (sans trop rien comprendre au début)...

D'après les éléments donnés, la conclusion qui s'impose est que Global $commands = ObjCreate("Scripting.Dictionary") n'a pas fonctionné (environnement non disponible peut être) et donc $commands n'est pas un objet.

Ta remarque penche effectivement dans le même sens que ce que je pensais. Juste quelques questions qui pourraient m'aider à comprendre un peu plus cette panne :
faut-il des dll particuliers pour utiliser cette commande ?
Pourquoi cela fonctionne-t-il sur la plupart de mes postes ?

En fait comme c'est indiqué sur le post d'origine, je souhaitais éviter les tableaux qui me semblaient un peu "hard" à gérer puisque au départ je n'en connais pas la dimension. Mais je pense que je vais finir par le gérer comme ça si ça évite le bug. Je vous tiens au courant. Merci encore.

[Rapace15]

D'après les éléments donnés, la conclusion qui s'impose est que Global $commands = ObjCreate("Scripting.Dictionary") n'a pas fonctionné (environnement non disponible peut être) et donc $commands n'est pas un objet.
Donc forcément, la suite ne peut pas fonctionner.
Essayez de rajouter ceci avant la boucle For :

Code : Tout sélectionner

If Not IsObj ($commands) Then
     MsgBox(0, "Erreur", "$commands n'est pas un objet")
     Exit
EndIf

Je confirme, je passe bien par la gestion d'erreur et la box s'affiche.
Je vais donc essayer de passer par des array.

Toutefois, si quelqu'un pouvait m'expliquer pourquoi ça plante (faut-il rajouter une dll ?), je suis preneur. J'attends donc un petit peu pour marquer ce sujet comme résolu

[Tlem]

A première vue, c'est un problème avec COM => http://www.microsoft.com/com/default.mspx

Donc là comme ca je sais pas trop, mais peut être manque t-il un élément indispensable à l'utilisation correcte de COM.
Il faut voir si d'autres commandes COM fonctionne.

Essayez d'installer/Mettre à jour le .NET Framework.