Discussion :

[megamario]

Bonjour,


Cela fait un moment que je cherche, quand j'y pense car je suis pas bloqué la dessus, sans trouver la réponse.

Comment trouver le nom des ports COM. Je ne parle pas du nom des port (COM1, COM2 etc..) que l'on récupère par SerialPort.GetPortNames(), mais le nom du matériel. Nom que l'on peut visualiser dans le gestionnaire de périphérique.




Ici "Communications Port" pour le COM1 et "USB Serial Port" pour le COM2.

Merci

[Jerome Briot]

Il y a peut être plus simple mais tu peux le faire via WMI (WMI .NET Overview)

Exécute ceci dans une invite de commande de Windows :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wmic path Win32_SerialPort get Caption,Description,Name /value

[megamario]

Bonjour DUT,

Cela fonctionne effectivement mais cela me donne que le Port COM1 alors qu'au moment ou je l'ai effectué j'ai 3 port COM d'actif. Je vais regarder si l'on peu spécifier le port COM à interroger. Si c'est OK reste à utiliser ce code en VB.

Merci pour la piste.

[Jerome Briot]

Cela fonctionne effectivement mais cela me donne que le Port COM1 alors qu'au moment ou je l'ai effectué j'ai 3 port COM d'actif.

Ce sont des ports virtuels, non ?

Essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wmic path Win32_PnPEntity where "Caption like '%(COM%' or Name like '%(COM%'" get Caption,Description,Name /value

Est-ce une solution assez robuste ? A tester…

C'est tout ce que j'ai trouvé en cherchant sur internet.

Je ne connais pas le VB.NET mais si tu ne veux pas t'embêter avec WMI, tu dois pouvoir exécuter WMIC avec une commande système et lui demander d'écrire le résultat dans un fichier texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wmic path Win32_PnPEntity where "Caption like '%(COM%' or Name like '%(COM%'" get Caption,Description,Name /value > cominfos.txt

Il te restera à lire le contenu de ce fichier dans la suite de ton code VB.NET.

[megamario]

Cela fonctionne parfaitement, a défaut d'avoir un code VB, sa cela marche, merci.


Pour les ports COM c'est des Convertisseurs USB/RS232.

Merci encore

[rv26t]

Bonjour,

Sinon tu peux exécuter la commande sur la console et rediriger la sortie (ex avec une controle richtextbox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
            Dim psi As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo()
            psi.FileName = "wmic" ' nom de fichier indispensable
            psi.Arguments = "path Win32_PnPEntity where ""Caption like '%(COM%' or Name like '%(COM%'"" get Caption,Description,Name /value"
            psi.UseShellExecute = False                     ' autorise le choix de redirection
            psi.RedirectStandardOutput = True               ' autorise la redirection
            Dim p As System.Diagnostics.Process = New System.Diagnostics.Process
            p.StartInfo = psi
            p.Start()
            RichTextBox1.Text = p.StandardOutput.ReadToEnd()        ' sortira sur
            p.WaitForExit()

[megamario]

Super, je vais tester cela.

Merci à vous 2.

Si l'on pouvait rendre la fenêtre d’exécution invisible se serait parfait.

[edit] j'ai trouvé,

psi.CreateNoWindow = True

Merci encore