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 :
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 test = lire_WMI("nom d'ordinateur",sValue)
J'ai dû oublier quelque chose, mais je ne trouve pas.
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
Merci d'avance a celui ou celle qui saura m'aider
Eric
Partager