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