Bonjour,

Je me retrouve aujourd'hui confronté à un problème avec WMI :
Sur un ordinateur XP SP2, une requête WMI (dans un script vbs en local) s'est bloquée (script toujours en fonctionnement, mais ne faisant plus rien) alors qu'aucune erreur n'est apparue lors de la création de l'objet WMI, ni lors de la création de la la collection d'objet WMI, ni même lors de l'exécution du programme.

Y aurait-il une possibilité de vérifier que WMI fonctionne bien, en général ou dans l'espace de nom sélectionné, avant de créer les objets et de faire des requêtes?

Les objets que je récupérais dans l'espace de nom "\root\cimv2" sont : Win32_OperatingSystem, Win32_Printer et Win32_PrinterDriver.

Code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
Set colInstalledPrinters =  objWMIService.ExecQuery("Select * from Win32_Printer")
Set colPrinterDrivers = objWMIService.ExecQuery ("Select * from Win32_PrinterDriver")
Ps : Le code fonctionne parfaitement sur une centaine d'autres machines en XP SP2 et SP1.

Merci de votre aide.