home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lsmt213c.zip / q_system.cmd < prev    next >
OS/2 REXX Batch file  |  1998-01-04  |  1KB  |  28 lines
  1. /*---------------------------------------------------------------------------*\
  2. |   GET the hardware characteristics from a server                            |
  3. |                                                                             |
  4. |                                   (C) Alain Rykaert IBM-Belgium MAY95-JUN96 |
  5. \*---------------------------------------------------------------------------*/
  6.  
  7.     Parse Arg Server_Name
  8.  
  9.    '@echo off'
  10.  
  11.     If Server_Name = ''
  12.       Then Do
  13.              Say '! Invalid ServerName' '07'x
  14.              Exit
  15.            End
  16.       Else Nop
  17.     Say '* Check for QSYSTEM.EXE on' Server_Name
  18.     If Stream('\\'Server_Name'\ibmlan$\netprog\qsystem.exe', 'C', 'Query Exists') = ''
  19.       Then 'copy' Directory()'\qsystem.exe \\'Server_Name'\ibmlan$\netprog'
  20.       Else nop
  21.     Say '* Executing QSYSTEM on' Server_Name
  22.    'net admin \\'Server_Name '/c qsystem /c /d /q > \\'Server_Name'\ibmlan$\netprog\qsystem.out'
  23.     Say '* Editing "QSYSTEM.OUT" from' Server_Name
  24.    'start /f "SystemInfo" e \\'Server_Name'\ibmlan$\netprog\qsystem.out'
  25.  
  26.     Exit
  27.  
  28.