home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / network / rexxlan / smples30 / alias.cmd < prev    next >
Encoding:
Text File  |  1993-07-01  |  2.3 KB  |  48 lines
  1. /* ********************************************************************* */
  2. /*                                                                       */
  3. /*   File:       ALIAS.CMD                                               */
  4. /*   Version:    1.0                                                     */
  5. /*   Date:       1.7.1993                                                */
  6. /*                                                                       */
  7. /*   (c) EDV Beratung L. Braeuer, 1993                                   */
  8. /*                                                                       */
  9. /*   Purpose:    Enumerates defined aliases                              */
  10. /*                                                                       */
  11. /* ********************************************************************* */
  12.  
  13. server = '\\SERVER'
  14.  
  15. /*                                                                       */
  16. /*  Initialize REXXLAN                                                   */
  17. /*                                                                       */
  18. call rxfuncadd NetLoadFuncs, RXLAN30, NetLoadFuncs
  19. CALL NetLoadFuncs
  20.  
  21. /*                                                                       */
  22. /*  Query defined aliases with outputlevel 1. Write result in variable   */
  23. /*  "Alias". Write number of entries in variable "Read". Get info about  */
  24. /*  all types of aliases: 1 (File) + 2 (Printer) + 4 (Serial) = 7        */
  25. /*                                                                       */
  26. SAY 'Enumerating aliases...'
  27. ret = NetAliasEnum( server, '1', '7', 'Alias', '', 'Read', '' )
  28.  
  29. IF ret == 0 THEN DO
  30.    SAY 'Found ' || Read || ' Aliases on server ' || server
  31.    SAY
  32.    SAY '    Name         Type        Comment'
  33.    SAY '--------------------------------------------------------------'
  34.    DO i = 0 TO Read-1
  35.       SELECT
  36.          WHEN Alias.i.ai1_type = 1 THEN type = 'FILE'
  37.          WHEN Alias.i.ai1_type = 2 THEN type = 'PRINTER'
  38.          WHEN Alias.i.ai1_type = 4 THEN type = 'SERIAL'
  39.          OTHERWISE type = 'UNKNOWN'
  40.          END
  41.       SAY '    ' || left(Alias.i.ai1_alias, 10) || '   ' || left(type,10) || '  ' || Alias.i.ai1_remark
  42.       END
  43.    END
  44. ELSE DO
  45.    SAY 'Error in function NetAliasEnum. rc = ' || ret
  46.    END
  47. CALL Netdropfuncs
  48.