Problème avec une Fonction utilisant WMI
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:
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:
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
