BOOL EnumPorts(
  LPTSTR pName,       // server name
  DWORD Level,        // information level
  LPBYTE pPorts,      // port information buffer
  DWORD cbBuf,        // size of port information buffer
  LPDWORD pcbNeeded,  // bytes received or required
  LPDWORD pcReturned  // number of ports received
);
 

 
DECLARE INTEGER EnumPorts IN winspool.drv;
    STRING    pName,;
    INTEGER   Level,;
    STRING  @ pPorts,;
    INTEGER   cbBuf,;
    INTEGER @ pcbNeeded,;
    INTEGER @ pcReturned