home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / CCPSRV.CMD < prev    next >
OS/2 REXX Batch file  |  1992-03-25  |  989b  |  42 lines
  1. /*
  2.  
  3. trace r
  4.  
  5. */
  6.  
  7. arg domain p1 p2 p3 p4 p5 p6 p7
  8.  
  9. select
  10.    when domain = "?" then 
  11.      do
  12.        say    
  13.        say  '┌─────────────┐'
  14.        say    '│ 0 maina000  │'
  15.        say    '│ 1 maina001  │'
  16.        say    '│ 5 maina005  │'
  17.        say    '│ 6 is        │'
  18.        say  '└─────────────┘'
  19.        say
  20.        exit (1)
  21.      end
  22.    when domain = ''    then call mf (maina000 P1 p2 p3 p4 p5 p6 p7)
  23.    when domain = 'NET' then call mf (maina000 NET P1 p2 p3 p4 p5 p6 p7)
  24.    when domain = 0     then call mf (maina000 p1 p2 p3 p4 p5 p6 p7)
  25.    when domain = 1     then call mf (maina001 p1 p2 p3 p4 p5 p6 p7)
  26.    when domain = 5     then call mf (maina005 p1 p2 p3 p4 p5 p6 p7)
  27.    when domain = 6     then call mf (maina006 p1 p2 p3 p4 p5 p6 p7)
  28.    otherwise                call mf (maina000 domain p1 p2 p3 p4 p5 p6 p7)
  29. end
  30.  
  31. RETURN
  32.  
  33. mf: procedure
  34.  
  35. arg dOMAIN P1 p2 p3 p4 p5 p6 p7
  36.  
  37. say 'Executing...'
  38.  
  39.  'net admin \\' || Domain '/c'  p1 p2 p3 p4 p5 p6 p7
  40.  
  41. Return
  42.