Discussion :

[iris15]

Bonjour,

j'ai créer un code en vb6 qui à un moment recherche un si un processus bien particulier est lancé.

j'utilise ces deux lignes là pour récuperer cette liste :

Code :

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

1
2
Set wmobj = GetObject("WinMgmts:{impersonationLevel=impersonate}")
Set query = wmobj.ExecQuery("Select * from Win32_Process")

Problème sur mon poste ça marche niquel mais j'ai essayer sur un autre poste et la ça plante à hauteur de

Code :

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

Set wmobj = GetObject("WinMgmts:{impersonationLevel=impersonate}")

Les deux postes ont tous les deux la même version de windows xp. Ce n'est pas un problème de droit car je suis en admin sur les deux. Ce n'est semble t'il pas un probleme de DLL car nous disposons des mêmes. J'ai verifier avec les dependances il ne manque rien normalement. J'ai comparé les process lancés et pas de grande difference. De même pour les services.

Le probleme pourrait venir d'ou?

J'ai lu quelques parts que les WMI se basaient sur la framework .NET. Je n'arrive pas à voir ma version dans ajouter/supprimer les programmes.
ya pas une histoire wmisrv.exe ? (je ne l'ai pas sur les deux postes pourtant)

une idée ?

merci d'avance,

[Vld44]

salut

quelle est l'erreur ?
Sinon, ton projet est-il bien recompilé (forcer la recompilation de TOUTES les dll) sur le poste qui merdouille ?

[iris15]

il me met bloc With non défini.

Au debugger il bloque sur le winMgmts. Et oui j'ai bien recompiler aussi :/

[ucfoutu]

Bonjour,

Va là :

http://pagesperso-orange.fr/jose.manicon/FAQFRA.html

Lis le paragraphe 3

Puis essaye la 2ème solution qui est proposée (celle de l'exécution directe de commandes depuis Exécuter).

Bonne chance

[iris15]

merci pour ta réponse ucfoutu,

ça ma permis de me rendre compte que l'un des mes postes de tests avait des problèmes avec le WMI ( proprieté dans gestion de l'ordinateur). Par contre je viens de tester sur deux autres postes ou le WMI est actif et fonctionnel.
j'ai creer un VBS avec mon code dedans :

Code :

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

1
2
3
4
5
6
 
Set wmobj = GetObject("WinMgmts:{impersonationLevel=impersonate}")
Set query = wmobj.ExecQuery("Select * from Win32_Process")
for each pro in query
 	    wscript.echo pro.name
next

et la surprise ça marche !

Pourquoi ça marcherai dans un vbs et pas dans mon VB6?
et si c'est mon vb6 qui ne connais pas winmgts pourquoi ça marche sur mon poste et pas sur les autres?

:-D

[iris15]

Bon en fait c'etait un mélange de plusieurs problème que j'ai decortiqué !

[AlainTech]

Problème résolu?

Bouton !