home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Collection - Online Library - January 1996 / CKITOS2196.ISO / diskette / gg244043.dsk / unc.dsk / LS30UTIL / PRTSTAT.CMD < prev    next >
OS/2 REXX Batch file  |  1993-03-05  |  2KB  |  84 lines
  1. /*******************************************************************/
  2. /* PRTSTAT.CMD                                                     */
  3. /*                                                                 */
  4. /* Display the current status of server printer ports on a         */
  5. /* LAN Server 3.0 server.                                          */
  6. /*                                                                 */
  7. /* If a server name is provided, such as \\OURSRV then only        */
  8. /* information for this will be displayed. In no argument is       */
  9. /* provided, all server devices within the current logged on       */
  10. /* domain will be displayed.                                       */
  11. /*                                                                 */
  12. /*******************************************************************/
  13.  
  14. parse upper arg serverId dummyArg
  15.  
  16. call LoadFuncs; /* Load DLL utility functions */
  17.  
  18. if serverId = '' then do
  19.  rc = NetEnum('servers',,'servers.', 1)
  20.  if rc = '0' then do
  21.   do i=1 to servers.0
  22.    say servers.i
  23.    rc = NetEnum('printdev',servers.i,'prtStatus.', 'STATUS')
  24.  
  25.    if rc = '0' then do
  26.     do j=1 to prtStatus.0
  27.      say prtStatus.j
  28.     end
  29.    end
  30.    else do
  31.     say 'Error occured obtaining printer status. Returncode from NetEnum() was:'
  32.     say rc
  33.     exit 9
  34.    end
  35.  
  36.   end
  37.  end
  38.  else do
  39.   say 'Error obtaining server names occured. Returncode from NetEnum() was:'
  40.   say rc
  41.   exit 9
  42.  end
  43.  
  44. end
  45. else do
  46.  rc = NetEnum('printdev',serverId,'prtStatus.', 'STATUS')
  47.  if rc = '0' then do
  48.   say serverId
  49.   do i=1 to prtStatus.0
  50.    say prtStatus.i
  51.   end
  52.  end
  53.  else do
  54.   say 'Error occured obtaining printer status. Returncode from NetEnum() was:'
  55.   say rc
  56.   exit 9
  57.  end
  58. end
  59.  
  60. call DropFuncs
  61. exit 0
  62.  
  63. /*************************************************************/
  64. /* Load DLL Functions                                        */
  65. /*************************************************************/
  66. LoadFuncs:
  67.  
  68.  /* Load LS30UT.DLL functions */
  69.  call RxFuncAdd 'LoadLs30utFuncs', 'LS30UT', 'LoadLs30utFuncs'
  70.  call LoadLs30utFuncs
  71.  
  72. return
  73.  
  74. /*************************************************************/
  75. /* Drop DLL Functions                                        */
  76. /*************************************************************/
  77. DropFuncs:
  78.  
  79.  /* Drop LS30UT.DLL functions */
  80.  call DropLs30utFuncs
  81.  
  82. return
  83.  
  84.