home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lsmt213c.zip / nadmin.cmd < prev    next >
OS/2 REXX Batch file  |  1999-11-11  |  1KB  |  40 lines

  1. /* Perform Net remote admin cmd  */
  2.  
  3.     Parse Arg ServerName RunCommand
  4.  
  5.     If ServerName = '' | RunCommand = ''
  6.       Then Do
  7.               Say '*'
  8.               Say '* Usage: NADMIN {ServerName} {RunCommand}'
  9.               Say '*'
  10.               Say '* Sample: NADMIN \\BEDDC2 net start'
  11.               Say '*'
  12.               Exit
  13.            End
  14.       Else Nop
  15.  
  16.     ServerName = Strip(ServerName,'L','\')
  17.  
  18.     Say '* Server Name:' '\\'ServerName
  19.  
  20.     Drop ReturnValue.
  21.     ReturnValue.Available = ''
  22.     ReturnValue.ExitCode = ''
  23.     ReturnValue.Returned = ''
  24.     ReturnValue.Output = ''
  25.  
  26.     RC = NetMisc(710, RunCommand, '\\'ServerName, 'ReturnValue')
  27.     If RC = 0
  28.       Then Do
  29.              Say '. Remote Exit code was            :' ReturnValue.ExitCode
  30.              Say '. Returned Bytes are              :' ReturnValue.Returned
  31.              Say '. Number Bytes at Remote Location :' ReturnValue.Available
  32.              Say Copies('-',60)
  33.              Say ReturnValue.Output
  34.              Say Copies('-',60)
  35.            End
  36.       Else Say '!' RC
  37.  
  38.     Exit
  39.  
  40.