Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

57 lines
1.8 KiB

  1. rem
  2. rem Set the __ProgramFiles varaible according to the machine type
  3. rem
  4. Set __ProgramFiles=%ProgramFiles%
  5. If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
  6. If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
  7. Set __ProgramFiles=%Program Files(x86)%
  8. :acsrCont1
  9. Rem
  10. Rem Create directories for application specific data in the
  11. Rem user's home directory.
  12. Rem
  13. call TsMkUDir "%RootDrive%\Office95"
  14. call TsMkuDir "%RootDrive%\Office95\Startup"
  15. #ifdef JAPAN
  16. call TsMkUDir "%RootDrive%\Office95\Template"
  17. #else
  18. call TsMkUDir "%RootDrive%\Office95\Templates"
  19. #endif
  20. call TsMkuDir "%RootDrive%\Office95\XLStart"
  21. Rem
  22. Rem Copy the system toolbars to the user's home directory, unless
  23. Rem they already exist.
  24. Rem
  25. If Exist "%RootDrive%\Office95\ShortCut Bar" Goto Skip1
  26. If Not Exist "#INSTDIR#\Office\ShortCut Bar" Goto Skip1
  27. Xcopy "#INSTDIR#\Office\ShortCut Bar" "%RootDrive%\Office95\ShortCut Bar" /E /I >Nul: 2>&1
  28. :Skip1
  29. Rem
  30. Rem Copy ClipArt Gallery file to the User's Directory
  31. Rem
  32. If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip2
  33. If Not Exist "%__ProgramFiles%\Common Files\Microsoft Shared\Artgalry\ArtGalry.cag" Goto Skip2
  34. Copy "%__ProgramFiles%\Common Files\Microsoft Shared\Artgalry\ArtGalry.cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
  35. :Skip2
  36. Rem
  37. Rem Create Custom.dic file in user's directory
  38. Rem
  39. If Not Exist "%RootDrive%\Office95\Custom.Dic" Copy Nul: "%RootDrive%\Office95\Custom.Dic" >Nul: 2>&1
  40. Rem
  41. Rem Copy the PowerPoint and Binder files to the user's directory
  42. Rem
  43. If Not Exist "%UserProfile%\%TEMPLATES%\BINDER70.OBD" copy "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER70.OBD" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  44. If Not Exist "%UserProfile%\%TEMPLATES%\PPT70.PPT" copy "%ALLUSERSPROFILE%\%TEMPLATES%\PPT70.PPT" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1