Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Claude BELLAMY
Dans le message news:# , Jacques s'est ainsi exprimé:
Bonjour,
Je cherche un moyen de détecter par code (VB) les périphériques se trouvant sur un port USB.
Les classes WMI "Win32_USBController" et "Win32_USBHub" devraient en principe satisfaire à ta demande : "ENUMUSB.VBS" ----------- couper ici ----------- On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") wscript.echo "Contrôleurs :" Set colItems = objWMIService.ExecQuery("Select * from Win32_USBController",,48) For Each objItem in colItems Wscript.Echo objItem.Name Next wscript.echo VBCRLF & "Périphériques :" Set colItems = objWMIService.ExecQuery("Select * from Win32_USBHub",,48) For Each objItem in colItems Wscript.Echo objItem.Name Next ----------- couper ici -----------
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org http://www.bellamyjc.org *
Dans le message news:#HfRM6gIEHA.3832@TK2MSFTNGP12.phx.gbl ,
Jacques <jac_be@hotmail.com> s'est ainsi exprimé:
Bonjour,
Je cherche un moyen de détecter par code (VB) les périphériques se
trouvant sur un port USB.
Les classes WMI "Win32_USBController" et "Win32_USBHub" devraient en
principe satisfaire à ta demande :
"ENUMUSB.VBS"
----------- couper ici -----------
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
wscript.echo "Contrôleurs :"
Set colItems = objWMIService.ExecQuery("Select * from
Win32_USBController",,48)
For Each objItem in colItems
Wscript.Echo objItem.Name
Next
wscript.echo VBCRLF & "Périphériques :"
Set colItems = objWMIService.ExecQuery("Select * from Win32_USBHub",,48)
For Each objItem in colItems
Wscript.Echo objItem.Name
Next
----------- couper ici -----------
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
Dans le message news:# , Jacques s'est ainsi exprimé:
Bonjour,
Je cherche un moyen de détecter par code (VB) les périphériques se trouvant sur un port USB.
Les classes WMI "Win32_USBController" et "Win32_USBHub" devraient en principe satisfaire à ta demande : "ENUMUSB.VBS" ----------- couper ici ----------- On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") wscript.echo "Contrôleurs :" Set colItems = objWMIService.ExecQuery("Select * from Win32_USBController",,48) For Each objItem in colItems Wscript.Echo objItem.Name Next wscript.echo VBCRLF & "Périphériques :" Set colItems = objWMIService.ExecQuery("Select * from Win32_USBHub",,48) For Each objItem in colItems Wscript.Echo objItem.Name Next ----------- couper ici -----------
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org http://www.bellamyjc.org *