Discussion :

[Eric_78180]

J'ai un petit problème, j'ai un très gros script qui me génère un tableau a partir de la liste des computers de l'Active Directory, ensuite il va récolter plusieurs type d'information.

Tout fonctionne a l'exeption d'une fonction qui me récupère le modèle de matériel
j'appelle la fonction par la ligne suivante :

Code :

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

test = lire_WMI("nom d'ordinateur",sValue)

une fois dans celle ci je me fais sortir juste après le Set objWMIService, sans message d'erreur...

Code :

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

1
2
3
4
5
6
7
8
9
function lire_WMI(strComputer,sValue)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery("Select Model from Win32_ComputerSystem")
 
For Each objComputer in colSettings 
Wscript.Echo "System Model: " & objComputer.Model
 
Next
end function

J'ai dû oublier quelque chose, mais je ne trouve pas.

Merci d'avance a celui ou celle qui saura m'aider

Eric

[AlainTech]

J'ai testé sur mon PC (en local) et ça fonctionne.

Par contre, je me demande à quoi te sert ta variable sValue.
Tu ne l'utilises pas.

[Eric_78180]

ici elle ne sert effectivement a rien, mais j'ai utilisé un modèle par défaut de mes fonctions pour le test.
çà marche aussi en local pour moi, ainsi que reseau, mon problème est plutot qu'elle ne fonctionne plus a partir du moment où elle est dans mon script complet.

J'utilise une autre fonction appelant WMI pour aller lire dans la base de registre, celle ci fonctionne parfaitement.

mais impossible de faire fonctionner celle dont je donne le code...

[Eric_78180]

En fait j'ai répondu tout seul a mon problème.
je sortais mon résultat sur une variable défini uniquement dans la fonction qui appelait cette fonction ci.
En deplacant la déclaration de ma variable au debut de mon script tout fonctionne.

tout bête !