Try this ....
Imports System.Management
Module Module1
Sub Main()
Try
Dim searcher = New ManagementObjectSearcher(
"root\CIMV2",
"SELECT * FROM Win32_PnPEntity WHERE ClassGuid=""{4d36e978-e325-11ce-bfc1-08002be10318}""")
For Each queryObj As ManagementObject In searcher.Get()
Console.WriteLine(queryObj("Name"))
Next
Catch err As ManagementException
Console.WriteLine("An error occurred while querying for WMI data: " & err.Message)
End Try
Console.ReadKey()
End Sub
End Module
Maintenant, avec votre Arduino branché, lorsque vous exécutez ce code, il devrait afficher 'ch340 USB-série' dans la fenêtre de commande. Si vous faites une recherche pour cela sur le web, il revient avec un tas de résultats pour Arduino .... Donc, je devine que 'usb-serial ch340' correspond à un périphérique 'Arduino/Genuino Uno', si vous Branchez un appareil différent, il retournera un résultat différent ....
N'ajoutez pas d'étiquettes non pertinentes. – Olaf