Gambas ONE

Public oRS232 As SerialPort

Public Function GetActivePorts() As String[]

    Dim ReturnValue As New String[]
    '----------------------------------------
    Dim sShell As String
    Dim aSerPorts As String[]

    oRS232 = New SerialPort

    Shell "ls -m /dev/ttyS*" To sShell
    Replace(sShell, "\n", "")
    aSerPorts = Split(sShell, ",")
    For Each sSP As String In aSerPorts
        oRS232.PortName = Trim(sSP)
        Try oRS232.Open()
        If oRS232.Status = Net.Active Then ReturnValue.add(sSP)
        oRS232.Close
    Next

    '----------------------------------------
    Return ReturnValue

Catch
    ' Do some Error Handling if you like

End