home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Collection - Online Library - January 1996 / CKITOS2196.ISO / diskette / gg244043.dsk / unc.dsk / LS30UTIL / GET1LASN.CMD < prev    next >
OS/2 REXX Batch file  |  1993-03-03  |  2KB  |  64 lines
  1. /*******************************************************************/
  2. /* GET1ASN.CMD                                                     */
  3. /*                                                                 */
  4. /* Get one logon assignments for a user.                           */
  5. /*                                                                 */
  6. /* The argument is:                                                */
  7. /*  user        The user ID                                        */
  8. /*                                                                 */
  9. /* Result:                                                         */
  10. /*                  type A= for public application assignment      */
  11. /*                       D= for device assignment, such as         */
  12. /*                          G:, COM5, LPT3 or none                 */
  13. /*                  Examples:                                      */
  14. /*                                                                 */
  15. /*                  D=   G:     FILESDIR                           */
  16. /*                  D=          FILESDIR                           */
  17. /*                  D=   COM3   COMPORT                            */
  18. /*                  D=   LPT6   LPTPRT                             */
  19. /*                  A=          PUBLICAP                           */
  20. /*                                                                 */
  21. /*******************************************************************/
  22.  
  23. parse upper arg userId dummy
  24.  
  25. call LoadFuncs; /* Load DLL utility functions */
  26.  
  27. rc = GetLogonAsn(userId, 'asnList')
  28.  
  29. if rc = '0' then do
  30.  say 'userid=' userId
  31.  do i=1 to asnList.0
  32.   say asnList.i
  33.  end
  34.  say
  35. end
  36. else do
  37.  say 'Error occured. Returncode from GetLogonAsn() was: ' rc
  38. end
  39.  
  40. call DropFuncs
  41. exit 0
  42.  
  43. /*************************************************************/
  44. /* Load DLL Functions                                        */
  45. /*************************************************************/
  46. LoadFuncs:
  47.  
  48.  /* Load LS30UT.DLL functions */
  49.  call RxFuncAdd 'LoadLs30utFuncs', 'LS30UT', 'LoadLs30utFuncs'
  50.  call LoadLs30utFuncs
  51.  
  52. return
  53.  
  54. /*************************************************************/
  55. /* Drop DLL Functions                                        */
  56. /*************************************************************/
  57. DropFuncs:
  58.  
  59.  /* Drop LS30UT.DLL functions */
  60.  call DropLs30utFuncs
  61.  
  62. return
  63.  
  64.