Erreur n°2147217392: Erreur automation

Signaler
-
Bonjour,
voilà mon problème: sur un parc de plus de 100 utilisateur, chez un seul les lignes de code suivantes renvoient une erreur d'automation :


    Dim objWMIService As Object
    Dim colItems As Object



    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

   
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Process", , 48)
1234567891011



J'ai beau retourner le problème dans tous les sens je vois pas.
PS: l'utilisateur est admin de son poste.

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.