espadon2
Messages postés71Date d'inscriptionjeudi 19 juin 2003StatutMembreDernière intervention21 octobre 2008
-
5 févr. 2007 à 16:40
espadon2
Messages postés71Date d'inscriptionjeudi 19 juin 2003StatutMembreDernière intervention21 octobre 2008
-
6 févr. 2007 à 16:49
Bonjour à tous/toutes ,
voila j' ai une petite question ... :)
je voudrais recupérer les nom de tous mes peripheriques (Imprimante , webcam , scanner etc ...)
Exp: j' ai une webcam branchée sur mon pc .. elle s'appelle "Labtec Webcam Pro" dans gestionnaires de peripherique de windows
C'est cool j' ai le nom , mais chez un autre pote , c'est une autre webcam :) ... donc mon programme marche que chez moi... et je voudrais avoir la liste dynamiquement ... j' ai pas envie d'ecrire en dur un nom de péripherique ou dans un fichier de config ...suis clair ?? :) ..... bref comment connaitre le nom des imprimantes , webcam connecté au pc ... et peut etre le type du peripherique ...
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 5 févr. 2007 à 17:16
Bonjour,
Pour les périphiques USB, on peut utiliser le wmi avec Win32_USBControllerDevice.
A appronfondir pour les propriétés.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colDevices = objWMIService.ExecQuery _
("Select * From Win32_USBControllerDevice")
For Each objDevice in colDevices
strDeviceName = objDevice.Dependent
strQuotes = Chr(34)
strDeviceName = Replace(strDeviceName, strQuotes, "")
arrDeviceNames = Split(strDeviceName, "=")
strDeviceName = arrDeviceNames(1)
Set colUSBDevices = objWMIService.ExecQuery _
("Select * From Win32_PnPEntity Where DeviceID = '" & strDeviceName & "'")
For Each objUSBDevice in colUSBDevices
Wscript.Echo objUSBDevice.Description
Next
Next
Set objWMIService = Nothing
Set colDevices = Nothing
Set colUSBDevices = Nothing