COM Port name und SN auslesen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    COM Port name und SN auslesen

    Hallo,

    Ich will mein COM5 auslesen Name und SN.
    Damit will ich erreichen, dass wenn COM5 name = "USB to RS232" und SN = "1234567" hatt ein Testprogramm startet.
    Ich habe schon ein Code gefunden womit ich aber nur denn COM1 auslesen kann habe ihn auch schon paar mal umgeschrieben komme aber nicht auf dem COM5.
    An mein COM5 ist ein USB-RS232 adapter angeschlossen.



    VB.NET-Quellcode

    1. Imports System.Management
    3. Public Function GetSerial()
    4. Dim queryA As String = "Select * from Win32_SerialPort"
    5. Dim pd As PropertyData
    6. Dim Device_Name As String = "Device-Name"
    7. 'Im Beispiel hier müsste dann folgendes da stehen:
    8. 'Dim Device_Name As String = "CP210x USB to UART Bridge Controller"
    9. Dim Found_Device As Boolean = False
    10. Dim Port As String = ""
    12. Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(queryA)
    13. Dim moc As ManagementObjectCollection = mos.Get()
    14. For Each mo As ManagementObject In moc
    15. For Each pd In mo.Properties
    16. On Error Resume Next
    17. If pd.Name.ToString() = "Description" Then
    18. If pd.Value.ToString() = Device_Name Then
    19. Found_Device = True
    20. Else
    21. Found_Device = False
    22. End If
    23. End If
    24. If Found_Device = True And pd.Name.ToString() = "DeviceID" Then
    25. Port = pd.Value.ToString()
    26. mos.Dispose()
    27. moc.Dispose()
    28. GC.Collect()
    29. Return Port
    30. End If
    31. Next
    32. Next
    33. mos.Dispose()
    34. moc.Dispose()
    35. GC.Collect()
    36. Return "Device Not Found"
    38. End Function

    Ich löse es immer so, dass ich die Antwort eines angeschlossenen Gerätes kenne und darauf hin prüfe. Also Port versuchen zu öffnen. Klapt das, dann was absenden und auf die Antwort warten. Kommt die Richtige, weiß ich, dass es der richtige Port ist.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Genau.
    Sieh Dir mal dies an:

    VB.NET-Quellcode

    1. Dim aa() As String = System.IO.Ports.SerialPort.GetPortNames()
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende