Déterminer nom et numéro de périphérique

[pitufo2804]

Bonjour à tous,
je cherche un moyen d'afficher dans une feuille excel, le nom et le numéro de mes port com.
Je m'explique, lorsque j'ouvre la fenêtre des péréphériques j'obtiens quelque chose dans ce genre :

​

Là je peux lire le nom et le numéro de chaque périphérique (COM1, COM2,...) et je voudrais afficher ça dans une feuille excel.
Possible or not possible ?

 

[Staple1600]

Re : Déterminer nom et numéro de périphérique

Bonsoir à tous

Voir du coté de WMI
Par exemple testes ce qui suit, avec un peu de chance, peut-être cela suffira t-il

Sub Test()
'source
'http://microsoft.public.fr.excel.narkive.com/aPFXzYCK/liste-des-ports-serie
ListSerialPorts "." ' Ordinateur local
End Sub

Sub ListSerialPorts(sComputer As String)
Dim objWMIService 'As Object
Dim colItems 'As Object
Dim objItem 'As Object
Dim l As Long

Set objWMIService = GetObject("winmgmts:\\" & _
sComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_SerialPort", , 48)
l = 1
For Each objItem In colItems
Cells(l, 1) = objItem.DeviceID
l = l + 1
Next
End Sub