Enumerar los puertos serie
Posted: Thu Aug 10, 2017 9:56 am
Buenos días.
¿Existe alguna forma de poder conocer los puertos serie disponibles en un equipo, sin tener que recurrir a las llamadas a opencomm()?
He probado con la pequeña función que he puesto más abajo, pero no me devuelve nada
Muchas gracias
José Luis
¿Existe alguna forma de poder conocer los puertos serie disponibles en un equipo, sin tener que recurrir a las llamadas a opencomm()?
He probado con la pequeña función que he puesto más abajo, pero no me devuelve nada
- Code: Select all Expand view
- STATIC FUNCTION puertocom()
LOCAL oDatos
LOCAL oLoc:= CreateObject("wbemScripting.SwbemLocator")
LOCAL oSrv:= oLoc:ConnectServer()
LOCAL oPuertos:= oSrv:ExecQuery("Select * from Win32_SerialPort")
FOR Each oDatos in oPuertos
MSGInfo(cValtoChar(odatos:name),"Nombre del Puerto")
NEXT
RETURN Nil
Muchas gracias
José Luis