home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lsmt213c.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1999-03-02  |  12KB  |  275 lines
  1. /*---------------------------------------------------------------------------*\
  2. |  INSTALL - Create the necessary object on the WorkPlaceShell                |
  3. |                                             (C) Alain Rykaert - JAN96-MAR99 |
  4. \*---------------------------------------------------------------------------*/
  5.     Version = '2.33'
  6.     Say '* Install Version:' Version
  7.  
  8.     Call Init                    /* Initialisation of DLL's and other stuff*/
  9.  
  10.     Call MakeObjects              /* Make LSMT Folder on the WorkPlaceShell*/
  11.  
  12.     Say '* Done.'
  13.     Say '  Go to the Folder created on the desktop called:'
  14.     Say ' "Lan Server Management Tools"'
  15.  
  16.     Exit
  17.  
  18.  INIT:/* --------------------------------------------------------------------*/
  19.  
  20.     If RxFuncQuery('SysLoadFuncs')
  21.       Then Do
  22.              Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs'
  23.              Call SysLoadFuncs
  24.            End
  25.       Else Nop
  26.  
  27.     REDIR = '>nul 2>nul'
  28.    '@echo off'
  29.  
  30.     Return
  31.  
  32.  MAKEOBJECTS:/* -------------------------------------------------------------*/
  33.  
  34.     Call SysDestroyObject '<LSMT_FOLDER>' /* delete previous version folder*/
  35.  
  36.     Class    = 'WPFolder'
  37.     Title    = 'Lan Server^Management Tools'
  38.     Location = '<WP_DESKTOP>'
  39.     Setup    = 'OBJECTID=<LSMT_MAIN_FOLDER>;'                               ||,
  40.                'ICONVIEW=FLOWED;'                                           ||,
  41.                'ICONVIEWPOS=20,5,50,70;'                                    ||,
  42.                'ICONFILE='Directory()'\LSMT.ICO;'                           ||,
  43.                'ALWAYSSORT=YES;'                                            ||,
  44.                'OPEN=DEFAULT;'                                              ||,
  45.                'BACKGROUND='Directory()'\LSMT.BMP,S,1'
  46.     Update   = 'Update'
  47.     Call CreateObj
  48.  
  49.     Class    = 'WPFolder'
  50.     Title    = 'Domain Definitions'
  51.     Location = '<LSMT_MAIN_FOLDER>'
  52.     Setup    = 'OBJECTID=<LSMT_DCDB>;'                                      ||,
  53.                'ICONVIEW=FLOWED;'                                           ||,
  54.                'ICONVIEWPOS=40,20,55,65;'                                   ||,
  55.                'ICONFONT=10.System VIO;'                                    ||,
  56.                'ICONFILE='Directory()'\WIZARD.ico;'                         ||,
  57.                'ALWAYSSORT=YES;'                                            ||,
  58.                'BACKGROUND=(none),,,C,200 255 255'
  59.     Update   = 'Update'
  60.     Call CreateObj
  61.  
  62.     Class    = 'WPProgram'
  63.     Title    = '*Create Domain Object'
  64.     Location = '<LSMT_DCDB>'
  65.     Setup    = 'OBJECTID=<LSMT_DCDB_QUERY>;'                                ||,
  66.                'EXENAME='Directory()'\Q_DCDB.Cmd;'                          ||,
  67.                'PROGTYPE=windowableVIO;'                                    ||,
  68.                'ICONFILE='Directory()'\db2.ico;'                            ||,
  69.                'PARAMETERS=/SRV:[Enter the name of a PR-DC]'
  70.     Update   = 'Update'
  71.     Call CreateObj
  72.  
  73.     Class    = 'WPFolder'
  74.     Title    = 'Domain Servers'
  75.     Location = '<LSMT_MAIN_FOLDER>'
  76.     Setup    = 'OBJECTID=<LSMT_SERVERS>;'                                   ||,
  77.                'ICONVIEW=FLOWED;'                                           ||,
  78.                'ICONVIEWPOS=40,20,55,65;'                                   ||,
  79.                'ICONFONT=10.System VIO;'                                    ||,
  80.                'ICONFILE='Directory()'\mis228.ico;'                         ||,
  81.                'ALWAYSSORT=YES;'                                            ||,
  82.                'BACKGROUND=(none),,,C,255 255 200'
  83.     Update   = 'Update'
  84.     Call CreateObj
  85.  
  86.     Class    = 'WPProgram'
  87.     Title    = '*Create Domain Object'
  88.     Location = '<LSMT_SERVERS>'
  89.     Setup    = 'OBJECTID=<LSMT_SERVERS_QUERY>;'                             ||,
  90.                'EXENAME='Directory()'\QSRVRS.Cmd;'                          ||,
  91.                'PROGTYPE=windowableVIO;'                                    ||,
  92.                'ICONFILE='Directory()'\db2.ico;'                            ||,
  93.                'PARAMETERS=[Enter the name of a PR-DC]'
  94.     Update   = 'Update'
  95.     Call CreateObj
  96.  
  97.     Class    = 'WPProgram'
  98.     Title    = 'LSMT Documentation'
  99.     Location = '<LSMT_MAIN_FOLDER>'
  100.     Setup    = 'OBJECTID=<LSMT_DOC>;'                                       ||,
  101.                'EXENAME='Directory()'\T2.exe;'                              ||,
  102.                'PROGTYPE=windowableVIO;'                                    ||,
  103.                'ICONFILE='Directory()'\view.ico;'                           ||,
  104.                'PARAMETERS='Directory()'\lsmt.txt'
  105.     Update   = 'Update'
  106.     Call CreateObj
  107.  
  108.     Class    = 'WPProgram'
  109.     Title    = '*Get from DC'
  110.     Location = '<LSMT_MAIN_FOLDER>'
  111.     Setup    = 'OBJECTID=<LSMT_GETCMD>;'                                    ||,
  112.                'EXENAME='Directory()'\GetCmd.cmd;'                          ||,
  113.                'PROGTYPE=windowableVIO;'                                    ||,
  114.                'ICONFILE='Directory()'\getcmd.ico;'                         ||,
  115.                'NOTVISIBLE=Yes;'                                            ||,
  116.                'PARAMETERS=/M [Enter the Name of the PR-DC] %*'
  117.     Update   = 'Update'
  118.     Call CreateObj
  119.  
  120.     Class    = 'WPProgram'
  121.     Title    = '*Set to DC'
  122.     Location = '<LSMT_MAIN_FOLDER>'
  123.     Setup    = 'OBJECTID=<LSMT_SETCMD>;'                                    ||,
  124.                'EXENAME='Directory()'\setcmd.cmd;'                          ||,
  125.                'PROGTYPE=windowableVIO;'                                    ||,
  126.                'ICONFILE='Directory()'\SetCmd.ico;'                         ||,
  127.                'NOTVISIBLE=Yes;'                                            ||,
  128.                'PARAMETERS=/M [Enter the Name of the PR-DC] %*'
  129.     Update   = 'Update'
  130.     Call CreateObj
  131.  
  132.     Class    = 'WPProgram'
  133.     Title    = '*Get All definitions'
  134.     Location = '<LSMT_MAIN_FOLDER>'
  135.     Setup    = 'OBJECTID=<LSMT_GETALL>;'                                    ||,
  136.                'EXENAME='Directory()'\GetAll.cmd;'                          ||,
  137.                'PROGTYPE=windowableVIO;'                                    ||,
  138.                'ICONFILE='Directory()'\Brick.ico;'                          ||,
  139.                'NOTVISIBLE=Yes;'                                            ||,
  140.                'PARAMETERS=/M /SRV:[Enter the Name of the PR-DC]'
  141.     Update   = 'Update'
  142.     Call CreateObj
  143.  
  144.     Class    = 'WPProgram'
  145.     Title    = '*T2 Editor'
  146.     Location = '<LSMT_MAIN_FOLDER>'
  147.     Setup    = 'OBJECTID=<LSMT_T2>;'                                        ||,
  148.                'EXENAME='Directory()'\t2.exe;'                              ||,
  149.                'PROGTYPE=windowableVIO;'                                    ||,
  150.                'ICONFILE='Directory()'\t2.ico;'                             ||,
  151.                'NOTVISIBLE=Yes'
  152.     Update   = 'Update'
  153.     Call CreateObj
  154.  
  155.  /* TOOLS */
  156.  
  157.     Class    = 'WPFolder'
  158.     Title    = 'Tools'
  159.     Location = '<LSMT_MAIN_FOLDER>'
  160.     Setup    = 'OBJECTID=<LSMT_TOOLS>;'                                     ||,
  161.                'ICONVIEW=FLOWED;'                                           ||,
  162.                'ICONVIEWPOS=40,20,55,65;'                                   ||,
  163.                'ICONFONT=10.System VIO;'                                    ||,
  164.                'ICONFILE='Directory()'\sysconfg.ico'                        ||,
  165.                'ALWAYSSORT=YES'
  166.     Update   = 'Update'
  167.     Call CreateObj
  168.  
  169.     Class    = 'WPProgram'
  170.     Title    = 'MoveStuf'
  171.     Location = '<LSMT_TOOLS>'
  172.     Setup    = 'OBJECTID=<LSMT_MOVESTUF>;'                                  ||,
  173.                'PROGTYPE=PM;'                                               ||,
  174.                'EXENAME='Directory()'\movestuf.exe'
  175.     Update   = 'Update'
  176.     Call CreateObj
  177.  
  178.     Class    = 'WPProgram'
  179.     Title    = 'NetPM'
  180.     Location = '<LSMT_TOOLS>'
  181.     Setup    = 'OBJECTID=<LSMT_NETPM>;'                                     ||,
  182.                'PROGTYPE=PM;'                                               ||,
  183.                'EXENAME='Directory()'\netpm.exe;'                           ||,
  184.                'STARTUPDIR='Directory()
  185.     Update   = 'Update'
  186.     Call CreateObj
  187.  
  188.     Class    = 'WPProgram'
  189.     Title    = 'LAN Server Audit'
  190.     Location = '<LSMT_TOOLS>'
  191.     Setup    = 'OBJECTID=<LSMT_LSAUDIT>;'                                   ||,
  192.                'PROGTYPE=PM;'                                               ||,
  193.                'EXENAME='Directory()'\lsaudit.exe;'                         ||,
  194.                'STARTUPDIR='Directory()
  195.     Update   = 'Update'
  196.     Call CreateObj
  197.  
  198.     Class    = 'WPProgram'
  199.     Title    = 'LAN Server Error'
  200.     Location = '<LSMT_TOOLS>'
  201.     Setup    = 'OBJECTID=<LSMT_LSERROR>;'                                   ||,
  202.                'PROGTYPE=PM;'                                               ||,
  203.                'EXENAME='Directory()'\lserror.exe;'                         ||,
  204.                'STARTUPDIR='Directory()
  205.     Update   = 'Update'
  206.     Call CreateObj
  207.  
  208.     Class    = 'WPProgram'
  209.     Title    = 'License Track Utility'
  210.     Location = '<LSMT_TOOLS>'
  211.     Setup    = 'OBJECTID=<LSMT_LTU>;'                                       ||,
  212.                'PROGTYPE=PM;'                                               ||,
  213.                'EXENAME='Directory()'\ltu.exe;'                             ||,
  214.                'STARTUPDIR='Directory()
  215.     Update   = 'Update'
  216.     Call CreateObj
  217.  
  218.     Class    = 'WPProgram'
  219.     Title    = 'LSC^Lan Server Check'
  220.     Location = '<LSMT_TOOLS>'
  221.     Setup    = 'OBJECTID=<LSMT_LSC>;'                                       ||,
  222.                'EXENAME='Directory()'\lsc.cmd;'                             ||,
  223.                'PARAMETERS=[Enter a Server Name] %* & Pause;'               ||,
  224.                'PROGTYPE=windowableVIO;'                                    ||,
  225.                'ICONFILE='Directory()'\watson.ico;'                         ||,
  226.                'NOTVISIBLE=No;'                                             ||,
  227.                'NOAUTOCLOSE=No'
  228.     Update   = 'Update'
  229.     Call CreateObj
  230.  
  231.     Class    = 'WPProgram'
  232.     Title    = 'LSDCDB^Check Domain Controller DataBase'
  233.     Location = '<LSMT_TOOLS>'
  234.     Setup    = 'OBJECTID=<LSMT_LSDCDB>;'                                    ||,
  235.                'EXENAME='Directory()'\lsdcdb.cmd;'                          ||,
  236.                'PARAMETERS=[Enter the Name of the PR-DC] %* & Pause;'       ||,
  237.                'PROGTYPE=windowableVIO;'                                    ||,
  238.                'ICONFILE='Directory()'\lsdcdb.ico;'                         ||,
  239.                'NOTVISIBLE=No;'                                             ||,
  240.                'NOAUTOCLOSE=No'
  241.     Update   = 'Update'
  242.     Call CreateObj
  243.  
  244.     Class    = 'WPProgram'
  245.     Title    = 'LSHOME^Check Home Directories'
  246.     Location = '<LSMT_TOOLS>'
  247.     Setup    = 'OBJECTID=<LSMT_LSHOME>;'                                        ||,
  248.                'EXENAME='Directory()'\lshome.cmd;'                          ||,
  249.                'PARAMETERS=[Enter the Name of the PR-DC] %* & Pause;'       ||,
  250.                'PROGTYPE=windowableVIO;'                                    ||,
  251.                'ICONFILE='Directory()'\lshome.ico;'                         ||,
  252.                'NOTVISIBLE=No;'                                             ||,
  253.                'NOAUTOCLOSE=No'
  254.     Update   = 'Update'
  255.     Call CreateObj
  256.  
  257.     Return
  258.  
  259.  CREATEOBJ:/* ---------------------------------------------------------------*/
  260.  
  261.     Say '> Creating ...' Title
  262.  
  263.     RC = SysCreateObject(Class, Title, Location, Setup, Update)
  264.     If RC <> 1
  265.       Then '! Error while creating object, ReturnCode:' RC
  266.       Else Do
  267.              Parse Value Setup With . 'OBJECTID=' ObjectID ';' .
  268.              If Left(ObjectID,1) = '<' & Right(ObjectID,1) = '>'
  269.                Then Call SysSetObjectData ObjectID, 'Title=' || Title
  270.                Else Nop
  271.            End
  272.  
  273.     Return
  274.  
  275.