home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / msregsvr.tcl < prev    next >
Text File  |  1997-11-17  |  666b  |  24 lines
  1. global regsvrfile
  2. if [info exists env(SYSTEMROOT)] {
  3.     set WIN_DIR $env(SYSTEMROOT)
  4. } else {
  5.     if ![info exists env(WINDIR)] {
  6.         error "Error: Unable to find Windows directory, please set the windir environment variable."
  7.         exit
  8.     }
  9.     set WIN_DIR $env(WINDIR)
  10. }
  11.  
  12. set systemDir [path_name concat $WIN_DIR system32]
  13. if ![file isdir $systemDir]  {
  14.     set systemDir [path_name concat $WIN_DIR system]
  15. } 
  16.  
  17. set regsvrfile [path_name concat $systemDir regsvr32.exe]
  18. if ![file isfile $regsvrfile] {
  19.     error "Error regsvr32.exe not found in directory $regsvrfile
  20. }
  21. global dllfile
  22. set dllfile [m4_path_name bin ObjectTeamMsRepUml.dll]
  23.  
  24.