Skip to main content
se añadieron 263 caracteres en el cuerpo
Origen Enlace
Pikoh
  • 17.5k
  • 9
  • 41
  • 56

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.

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

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.

se añadieron 51 caracteres en el cuerpo
Origen Enlace
Pikoh
  • 17.5k
  • 9
  • 41
  • 56

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

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")

Debes añadir en tu proyecto una referencia a System.Management, asi como Imports System.Management

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

se añadieron 40 caracteres en el cuerpo
Origen Enlace
Pikoh
  • 17.5k
  • 9
  • 41
  • 56

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")

Debes añadir en tu proyecto una referencia a System.Management, asi como Imports System.Management

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")

Debes añadir en tu proyecto una referencia a System.Management

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")

Debes añadir en tu proyecto una referencia a System.Management, asi como Imports System.Management

se eliminaron 2 caracteres en el cuerpo
Origen Enlace
Pikoh
  • 17.5k
  • 9
  • 41
  • 56
Loading
Origen Enlace
Pikoh
  • 17.5k
  • 9
  • 41
  • 56
Loading