home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / secure.zip / SAMPLE.CMD < prev    next >
OS/2 REXX Batch file  |  1993-08-06  |  2KB  |  40 lines
  1. /* ----------------------------------------------------------
  2. ** SAMPLE.CMD
  3. ** The Secure Workplace
  4. ** Sample Object Creation Program
  5. ** ---------------------------------------------------------*/
  6. '@echo off'
  7.  
  8. /* ---------------------------------------------------------
  9. ** Load the REXX Utility functions
  10. ** --------------------------------------------------------*/
  11. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  12. call SysLoadFuncs
  13.  
  14. /* ---------------------------------------------------------
  15. ** Create a Secure Folder on the Desktop
  16. ** --------------------------------------------------------*/
  17. ClassName = 'SWSFolder'
  18. Setup     = 'OBJECTID=<SWP_SECUREFOLDER>;'
  19. Title     = 'Secure Folder^(Sample)'
  20. Location  = '<WP_DESKTOP>'
  21. result    = SysCreateObject(ClassName, Title, Location, Setup, 'R')
  22.  
  23. /* ---------------------------------------------------------
  24. ** Create a Restricted Folder on the Desktop
  25. ** --------------------------------------------------------*/
  26. ClassName = 'SWRFolder'
  27. Setup     = 'OBJECTID=<SWP_RESTRICTFOLDER>;'
  28. Title     = 'Restricted Folder^(Sample)'
  29. Location  = '<WP_DESKTOP>'
  30. result    = SysCreateObject(ClassName, Title, Location, Setup, 'R')
  31. /* ---------------------------------------------------------
  32. ** Create a Secure Program on the Deskop
  33. ** --------------------------------------------------------*/
  34. ClassName = 'SWSProgram'
  35. Setup     = 'OBJECTID=<SWP_SECUREPROGRAM>;EXENAME=*;PROGTYPE=WINDOWABLEVIO;'
  36. Title     = 'Secure Program^(Sample)'
  37. Location  = '<WP_DESKTOP>'
  38. result    = SysCreateObject(ClassName, Title, Location, Setup, 'R')
  39. exit
  40.