¿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