home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / inetlg71.zip / INETINST.CMD < prev    next >
OS/2 REXX Batch file  |  2000-02-09  |  868b  |  32 lines
  1. /* Install INETLOG on the desktop */
  2. Trace 'N'
  3. Parse Source . . ourname .
  4. ourdir = Strip(Filespec('D', ourname) || Filespec('P', ourname), 'T', '\')
  5. classname = 'WPProgram'
  6. location = '<WP_DESKTOP>'
  7. title = 'Dialer Log^Analyzer'
  8. obj = 'OBJECTID=<INetLog>;'
  9. iconfile = 'ICONFILE=' || ourdir || '\INETLOG.ICO;ICONPOS=45 45;'
  10. exename = 'EXENAME=' || ourdir || '\INETLOG.CMD;'
  11. startupdir = 'STARTUPDIR=' || ourdir || ';'
  12. setup = obj || iconfile || exename || startupdir
  13.  
  14.  
  15. If Rxfuncquery('SysDropFuncs') Then
  16.    Do
  17.       Call Rxfuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  18.       Call SysLoadFuncs
  19.    End
  20.  
  21. If SysCreateObject(classname,title,location,setup,'U') Then
  22.    Do
  23.       Say 'INETLOG object created successfully'
  24.       rc = SysMkDir(ourdir || '\DATA')
  25.    End
  26. Else
  27.    Say 'INETLOG object creation unsuccessful'
  28.  
  29. Call INetCfg
  30.  
  31. Exit
  32.