Source code of Windows XP (NT5)
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.

73 lines
2.0 KiB

  1. @Echo off
  2. Rem
  3. Rem ���[�U�[�̃z�[�� �f�B���N�g���ɃA�v���P�[�V�����ŗL�̃f�[�^
  4. Rem �̃f�B���N�g�����쐬���܂��B
  5. Rem
  6. call TsMkUDir "%RootDrive%\Office43"
  7. call TsMkUDir "%RootDrive%\Office43\Access"
  8. call TsMkUDir "%RootDrive%\Office43\Winword"
  9. Rem ������ Normal.dot �� Winword.opt �͍폜���܂��B
  10. If Not Exist "#OFC43INST#\Winword\Normal.dot" Goto cont0
  11. Del /F /Q "#OFC43INST#\Winword\Normal.dot" > NUL: 2>&1
  12. :cont0
  13. If Not Exist "#OFC43INST#\Winword\Winword.opt" Goto cont1
  14. Del /F /Q "#OFC43INST#\Winword\Winword.opt" > NUL: 2>&1
  15. :cont1
  16. Rem
  17. Rem Access �E�B�U�[�h�p�̃t�@�C�����R�s�[���܂��B
  18. Rem
  19. If Exist "%RootDrive%\Office43\Access\wztable.mda" Goto skip1
  20. If Not Exist "#OFC43INST#\Access\wztable.mda" Goto skip1
  21. copy "#OFC43INST#\Access\wztable.mda" "%RootDrive%\Office43\Access\" > NUL: 2>&1
  22. :skip1
  23. If Exist "%RootDrive%\Office43\Access\wzlib.mda" Goto skip2
  24. If Not Exist "#OFC43INST#\Access\wzlib.mda" Goto skip2
  25. copy "#OFC43INST#\Access\wzlib.mda" "%RootDrive%\Office43\Access\" > NUL: 2>&1
  26. :skip2
  27. If Exist "%RootDrive%\Office43\Access\wzbldr.mda" Goto skip3
  28. If Not Exist "#OFC43INST#\Access\wzbldr.mda" Goto skip3
  29. copy "#OFC43INST#\Access\wzbldr.mda" "%RootDrive%\Office43\Access\" > NUL: 2>&1
  30. :skip3
  31. Rem
  32. Rem �e���[�U�[�̃J�X�^�������t�@�C�����R�s�[���܂��B
  33. Rem
  34. If Exist "%RootDrive%\Office43\Custom.dic" Goto skip4
  35. If Not Exist "%SystemRoot%\Msapps\Proof\Custom.dic" Goto skip4
  36. copy "%SystemRoot%\Msapps\Proof\Custom.dic" "%RootDrive%\Office43" > NUL: 2>&1
  37. :skip4
  38. Rem
  39. Rem Access �̃I�v�V���� �t�@�C�������[�U�[�� Office �f�B���N�g���փR�s�[���܂��B
  40. Rem
  41. If Exist "%RootDrive%\Office43\Access\System.mda" Goto skip5
  42. If Not Exist "#OFC43INST#\Access\System.mda" Goto skip5
  43. copy "#OFC43INST#\Access\System.mda" "%RootDrive%\Office43\Access\" > NUL: 2>&1
  44. :skip5
  45. Rem
  46. Rem �g���@�\�̃��W�X�g�� �L�[���K�p�����܂��B���W�X�g�� �}�b�v�͂������̃��W�X�g�� �L�[�ɑ΂��ē��삵�܂����B
  47. If Exist "%RootDrive%\Windows\Ofc43usr.dmy" Goto skip6
  48. regini ofc43usr.key > NUL:
  49. copy NUL: "%RootDrive%\Windows\Ofc43usr.dmy" > NUL: 2>&1
  50. attrib +h "%RootDrive%\Windows\Ofc43usr.dmy" > NUL: 2>&1
  51. :skip6