Hi All, I am trying to use this com ports check, it works fine on my computer but does not work on any other computers. The error comes up : OLE error code 0x80040112 : Class is not licensed for use. The code I am using is below :

LOCAL oComm, i, cOldErrorHandler
DECLARE aComPorts[16]
aComPorts = .T.
cOldErrorHandler = ON('ERROR')
FOR i = 1 TO 16
  oComm = CREATEOBJ('MsCOMMLib.Mscomm')
  oComm.CommPort = i
  ON ERROR aComPorts[i] = .F.
  oComm.PortOpen = .T.
  oComm.PortOpen = .F.
  oComm = NULL
  ON ERROR &cOldErrorHandler
ENDFOR
For i = 1 TO 16
	IF aComPorts[i]
		MESSAGEBOX([Comm Port ] + ALLTRIM(STR(i)) + [ is valid])
	ENDIF
ENDFOR

Your help will be apprecited. Thanking you.