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.

100 lines
3.9 KiB

  1. Rem #########################################################################
  2. Rem
  3. Rem "Microsoft Office ���Ķ�� �ް.lnk" �t�@�C���� Office �C���X�g�[�� ���[�g����
  4. Rem ���݂̃��[�U�[�̃X�^�[�g�A�b�v ���j���[�ɃR�s�[���܂��B
  5. Rem
  6. If Exist "%RootDrive%\Office97" Goto Skip0
  7. If Exist "%USER_STARTUP%\Microsoft Office ���Ķ�� �ް.lnk" Goto Skip0
  8. If Not Exist "#INSTDIR#\Microsoft Office ���Ķ�� �ް.lnk" Goto Skip0
  9. Copy "#INSTDIR#\Microsoft Office ���Ķ�� �ް.lnk" "%USER_STARTUP%\Microsoft Office ���Ķ�� �ް.lnk" >Nul: 2>&1
  10. :Skip0
  11. Rem
  12. Rem ���[�U�[�̃z�[�� �f�B���N�g���ɃA�v���P�[�V�����ŗL�̃f�[�^
  13. Rem �̃f�B���N�g�����쐬���܂��B
  14. Rem
  15. call TsMkUDir "%RootDrive%\Office97"
  16. call TsMkUDir "%RootDrive%\Office97\Startup"
  17. call TsMkUDir "%RootDrive%\Office97\Template"
  18. call TsMkUDir "%RootDrive%\Office97\Template\�ЊO����"
  19. call TsMkuDir "%RootDrive%\Office97\XLStart"
  20. call TsMkUDir "%RootDrive%\%MY_DOCUMENTS%"
  21. Rem
  22. Rem �S���[�U�[�̃e���v���[�g�ɂ��邱�����̃t�@�C�������݂̃��[�U�[�̃e���v���[�g�ɃR�s�[���܂��B
  23. Rem
  24. If Not Exist "%UserProfile%\%TEMPLATES%\WINWORD8.DOC" copy "%ALLUSERSPROFILE%\%TEMPLATES%\WINWORD8.DOC" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  25. If Not Exist "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" copy "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  26. If Not Exist "%UserProfile%\%TEMPLATES%\BINDER.OBD" copy "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER.OBD" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  27. Rem
  28. Rem �V�X�e�� �c�[���o�[�����[�U�[�̃z�[�� �f�B���N�g���ɃR�s�[���܂��B
  29. Rem ���ɃR�s�[�����Ă����ꍇ�̓R�s�[���܂����B
  30. Rem
  31. If Exist "%RootDrive%\Office97\ShortCut Bar" Goto Skip1
  32. If Not Exist "#INSTDIR#\Office\ShortCut Bar" Goto Skip1
  33. Xcopy "#INSTDIR#\Office\ShortCut Bar" "%RootDrive%\Office97\ShortCut Bar" /E /I >Nul: 2>&1
  34. :Skip1
  35. Rem
  36. Rem �t�H�[�� �f�B���N�g�����R�s�[���� Outlook ���� Word ���G�f�B�^�Ƃ��Ďg�����悤�ɂ��܂��B
  37. Rem
  38. If Exist "%RootDrive%\Windows\Forms" Goto Skip2
  39. If Not Exist "%SystemRoot%\Forms" Goto Skip2
  40. Xcopy "%SystemRoot%\Forms" "%RootDrive%\Windows\Forms" /e /i >Nul: 2>&1
  41. :Skip2
  42. Rem
  43. Rem ARTGALRY.CAG �����[�U�[�� Windows �f�B���N�g���ɃR�s�[���܂��B
  44. Rem
  45. If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip3
  46. If Not Exist "%SystemRoot%\ArtGalry.Cag" Goto Skip3
  47. Copy "%SystemRoot%\ArtGalry.Cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
  48. :Skip3
  49. Rem
  50. Rem Custom.dic �t�@�C�������[�U�[�̃f�B���N�g���ɃR�s�[���܂��B
  51. Rem
  52. If Exist "%RootDrive%\Office97\Custom.Dic" Goto Skip4
  53. If Not Exist "#INSTDIR#\Office\Custom.Dic" Goto Skip4
  54. Copy "#INSTDIR#\Office\Custom.Dic" "%RootDrive%\Office97\Custom.Dic" >Nul: 2>&1
  55. :Skip4
  56. Rem
  57. Rem �O���t �t�@�C�������[�U�[�̃f�B���N�g���ɃR�s�[���܂��B
  58. Rem
  59. If Exist "%RootDrive%\Office97\GR8GALRY.GRA" Goto Skip5
  60. If Not Exist "#INSTDIR#\Office\GR8GALRY.GRA" Goto Skip5
  61. Copy "#INSTDIR#\Office\GR8GALRY.GRA" "%RootDrive%\Office97\GR8GALRY.GRA" >Nul: 2>&1
  62. :Skip5
  63. If Exist "%RootDrive%\Office97\XL8GALRY.XLS" Goto Skip6
  64. If Not Exist "#INSTDIR#\Office\XL8GALRY.XLS" Goto Skip6
  65. Copy "#INSTDIR#\Office\XL8GALRY.XLS" "%RootDrive%\Office97\XL8GALRY.XLS" >Nul: 2>&1
  66. :Skip6
  67. REM
  68. REM �T���v�� �E�B�U�[�h���C���X�g�[�������Ă����ꍇ�A�X�^�C�� �e���v���[�g�����[�U�[ �f�B���N�g���ɃR�s�[���܂��B
  69. REM
  70. If Exist "#INSTDIR#\Template\�Г�����\���� ���ް��.wiz" Goto Skip7
  71. If Exist "#INSTDIR#\Template\�ЊO����\���� ���ް��.wiz" Goto Skip7
  72. If Not Exist "#INSTDIR#\Template\���̑��̕���\���� ���ް��.wiz" Goto Skip8
  73. :Skip7
  74. If Not Exist "%RootDrive%\Office97\Template\�ЊO����\��� 1.dot" Copy "#INSTDIR#\Template\�ЊO����\��� 1.dot" "%RootDrive%\Office97\Template\�ЊO����\��� 1.dot" >Nul: 2>&1
  75. If Not Exist "%RootDrive%\Office97\Template\�ЊO����\��� 2.dot" Copy "#INSTDIR#\Template\�ЊO����\��� 2.dot" "%RootDrive%\Office97\Template\�ЊO����\��� 2.dot" >Nul: 2>&1
  76. If Not Exist "%RootDrive%\Office97\Template\�ЊO����\��� 3.dot" Copy "#INSTDIR#\Template\�ЊO����\��� 3.dot" "%RootDrive%\Office97\Template\�ЊO����\��� 3.dot" >Nul: 2>&1
  77. :Skip8