home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / network / rexxlan / smples30 / groups.cmd < prev    next >
Encoding:
Text File  |  1993-11-07  |  2.5 KB  |  51 lines
  1. /* ********************************************************************* */
  2. /*                                                                       */
  3. /*   File:       GROUPS.CMD                                              */
  4. /*   Version:    1.0                                                     */
  5. /*   Date:       1.7.1993                                                */
  6. /*                                                                       */
  7. /*   (c) EDV Beratung L. Braeuer, 1993                                   */
  8. /*                                                                       */
  9. /*   Purpose:    Display all groups, defined in ther UAS of specified    */
  10. /*               server                                                  */
  11. /*                                                                       */
  12. /* ********************************************************************* */
  13.  
  14. server = '\\SERVER'
  15.  
  16. /*                                                                       */
  17. /*  Initialize REXXLAN                                                   */
  18. /*                                                                       */
  19. call rxfuncadd NetLoadFuncs, RXLAN30, NetLoadFuncs
  20. CALL NetLoadFuncs
  21.  
  22. /*                                                                       */
  23. /*  Query defined groups with outputlevel 1. Write result in variable    */
  24. /*  "Groups". Write number of entries in variable "Read"                 */
  25. /*                                                                       */
  26. SAY 'Searching for group definitions...'
  27. ret = NetGroupEnum( server, '1', 'Groups', '', 'Read', '' )
  28.  
  29. /*                                                                       */
  30. /*  If the return code is not 0, a error has occured. Otherwise print    */
  31. /*  the found groups.                                                    */
  32. /*                                                                       */
  33. IF ret <> 0 THEN DO
  34.    SAY NetRexxGetMessage( ret )
  35.    END
  36. ELSE DO
  37.    SAY 'Found ' || Read || ' Groups on server ' || server
  38.    SAY
  39.    SAY '    Name         Comment'
  40.    SAY '--------------------------------------------------------------'
  41.    DO i = 0 TO Read-1
  42.       SAY '    ' || left(Groups.i.grpi1_name, 10) || '    ' || Groups.i.grpi1_comment
  43.       END
  44.    END
  45.  
  46. /*                                                                       */
  47. /* free REXXLAN resources                                                */
  48. /*                                                                       */
  49. CALL Netdropfuncs
  50.  
  51.