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.

51 lines
1.8 KiB

  1. rem
  2. rem �R���s���[�^�̎��ނɉ����� __ProgramFiles �̒l���ݒ肵�܂��B
  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 ���[�U�[�̃z�[�� �f�B���N�g���ɃA�v���P�[�V�����ŗL�̃f�[�^
  11. Rem �̃f�B���N�g�����쐬���܂��B
  12. Rem
  13. call TsMkUDir "%RootDrive%\Office95"
  14. call TsMkuDir "%RootDrive%\Office95\Startup"
  15. call TsMkUDir "%RootDrive%\Office95\Template"
  16. call TsMkuDir "%RootDrive%\Office95\XLStart"
  17. Rem
  18. Rem ���[�U�[�̃z�[�� �f�B���N�g���Ƀc�[���o�[���R�s�[���܂��B
  19. Rem ���ɃR�s�[�����Ă����ꍇ�̓R�s�[���܂����B
  20. Rem
  21. If Exist "%RootDrive%\Office95\ShortCut Bar" Goto Skip1
  22. If Not Exist "#INSTDIR#\Office\ShortCut Bar" Goto Skip1
  23. Xcopy "#INSTDIR#\Office\ShortCut Bar" "%RootDrive%\Office95\ShortCut Bar" /E /I >Nul: 2>&1
  24. :Skip1
  25. Rem
  26. Rem ���[�U�[�̃f�B���N�g���փN���b�v �A�[�g �M�������[�̃t�@�C�����R�s�[���܂��B
  27. Rem
  28. If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip2
  29. If Not Exist "%__ProgramFiles%\Common Files\Microsoft Shared\Artgalry\ArtGalry.cag" Goto Skip2
  30. Copy "%__ProgramFiles%\Common Files\Microsoft Shared\Artgalry\ArtGalry.cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
  31. :Skip2
  32. Rem
  33. Rem ���[�U�[�̃f�B���N�g���� Custom.dic �t�@�C�����쐬���܂��B
  34. Rem
  35. If Not Exist "%RootDrive%\Office95\Custom.Dic" Copy Nul: "%RootDrive%\Office95\Custom.Dic" >Nul: 2>&1
  36. Rem
  37. Rem ���[�U�[�̃f�B���N�g���� PowerPoint �ƁA�o�C���_ �t�@�C�����R�s�[���܂��B
  38. Rem
  39. If Not Exist "%UserProfile%\%TEMPLATES%\BINDER70.OBD" copy "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER70.OBD" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  40. If Not Exist "%UserProfile%\%TEMPLATES%\PPT70.PPT" copy "%ALLUSERSPROFILE%\%TEMPLATES%\PPT70.PPT" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1