Te pongo un ejemplo de como consultar el StatusInfo
por código:
Dim Scope As New ManagementScope("\\.\ROOT\cimv2")
Dim Consulta As New ObjectQuery("SELECT * FROM Win32_SerialPort Where DeviceID='COM1'") ' cambialo por el puerto que necesites
Dim Searcher As New ManagementObjectSearcher(Scope, Consulta)
Dim queryCollection As ManagementObjectCollection = Searcher.Get
'Obtenemos el valor del primer resultado
Dim status As Integer = queryCollection.Cast(Of ManagementObject).First()("StatusInfo")
Console.WriteLine("StatusInfo : {0}", status)
Debes añadir en tu proyecto una referencia a System.Management
, asi como Imports System.Management
Edit
Tras varias pruebas, la solución pasa por cambiar el nombre del puerto en el administrador de dispositivos. Intuyo que el puerto que se estaba utilizando de alguna manera estaba mapeado por algun otro dispositivo, provocando el problema detectado.