home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 8 Other
/
08-Other.zip
/
sir_v1b.zip
/
sir2wps.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-11
|
2KB
|
47 lines
/****************************************************************************/
/* SIR! v1.0 Insallation script */
/* 28/1 1996 by Jan-Helge Bergesen */
/****************************************************************************/
ARG PATH
SAY "Sir2Wps.Cmd rexx/2 script used to create WPS objects"
SAY "Loading DLL's..."
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
SAY "RexxUtil.DLL"
REM SAY "Where was it you put the SIR.EXE again?"
REM parse pull PATH
SAY "PATH=" || PATH
EXEC_NAME="EXENAME=" || PATH || "\SIR.EXE"
rc=SysCreateOBject("WPFolder", "SIR! v1.0", "<WP_DESKTOP>", "OBJECTID=<SIR_FLDR>")
RC=SysCreateObject("WPProgram", "SIR! Setup" , "<SIR_FLDR>" , EXEC_NAME, "R")
if RC=0 then say "Unable to create WPProgram object: SIR! Setup"
RC=SysCreateObject("WPProgram", "SIR! Setup" , "<SIR_FLDR>" , EXEC_PARM , 'U')
if RC=0 THEN SAY "Unable to set parameter of WPProgram: SIR! Setup"
RC=SysCreateObject("WPProgram", "ReadMe" , "<SIR_FLDR>" , "EXENAME=VIEW.EXE;OBJECTID=<SIR_HLP>" , 'R')
if RC=0 THEN SAY "Unable to create WPProgram : VIEW.EXE"
parm="PARAMETERS=" || PATH || "\SIR.INF"
RC=SysCreateObject("WPProgram", "ReadMe" , "<SIR_FLDR>" , parm , 'U')
if RC=0
THEN SAY "Unable to update WPProgram : VIEW.EXE"
EXEC_NAME="EXENAME=" || PATH || "\KtmpPM.EXE"
RC=SysCreateObject("WPProgram", "KillTemp PM" , "<SIR_FLDR>" , EXEC_NAME, "R")
if RC=0 then say "Unable to create WPProgram object: KillTemp PM"
SAY "Folder created"
SAY "Automated installation complete."
SAY "This script will now display the help on setting up the WPS"
say " "
SAY "(enter)"
pull rc
ADDRESS 'CMD' "view " || PATH || "\SIR.INF window"
call SysDropFuncs
exit