Bonjour,

J'ai le souci suivant.
Le code ci-dessous ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
function listPrinters()
	Dim objWMIService
	Dim WshShell
	Set WshShell = CreateObject("WScript.Shell")
	Set objWMIService = GetObject("winmgmts:" & _
 "{impersonationLevel=Impersonate}!\\" & nomPC & "\root\cimv2")
end function
La ligne en gras ne fonctionne pas et renvoie une erreur 429 qui semble vouloir dire beaucoup de chose en fonction du contexte.
L'idée ici est de pouvoir lister les imprimantes du poste client (c'est même tiré de la FAQ). Il semble qu'il y a un souci de sécurité mais j'ai mis mon IE en site de confiance avec tout au niveau le plus bas mais l'erreur persiste. J'ai toujours :
Erreur 429 : Un composant ActiveX ne peut pas créer un objet

Est-ce que quelqu'un aurait une idée sur ce souci ?
merci d'avance