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.

134 lines
4.7 KiB

  1. @Echo Off
  2. Cls
  3. Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
  4. If "%_CHKROOT%" == "FAIL" Goto Done
  5. Echo.
  6. Echo ���̃X�N���v�g�����s�����O�ɁA�Ǘ��҂� Access �̍��ƃf�B���N�g����
  7. Echo ���[�U�[��Office �l�f�B���N�g���ɕύX�����K�v�������܂��B
  8. Echo.
  9. Echo ���ɕύX���������Ă����ꍇ�A�����L�[�������đ��s���Ă��������B
  10. Echo.
  11. Echo �ύX�����ɂ́A�ȉ��̍��Ƃ��s���Ă��������B
  12. Echo Microsoft Access ���N�����A[�\��] ���j���[�� [���Ə��Ԃ̐ݒ�] ���I�����܂��B
  13. Echo [�f�[�^�x�[�X �f�B���N�g��] �� "%RootDrive%\OFFICE43" �ɕύX���܂��B
  14. Echo Microsoft Access ���I�����܂��B
  15. Echo.
  16. Echo ����: [�\��] ���j���[���\�������ɂ́A�V�����f�[�^�x�[�X���쐬���� & Echo �K�v�������܂��B
  17. Echo.
  18. Echo ���̎菇���I���������A�C�ӂ̃L�[�������đ��s���Ă�������...
  19. Pause > NUL:
  20. Echo.
  21. Echo Microsoft Office 4.3 �� "%SystemDrive%\MSOFFICE" �ȊO�̃f�B���N�g���ɃC���X�g�[��
  22. Echo ���Ă����ꍇ�́AOfc43ins.cmd ���X�V�����K�v�������܂��B
  23. Echo.
  24. Echo �����L�[�������� Ofc43ins.cmd �̍X�V���J�n���܂�...
  25. Echo.
  26. Pause > NUL:
  27. Notepad Ofc43ins.cmd
  28. Pause
  29. Call ofc43ins.cmd
  30. ..\acsr "#OFC43INST#" "%OFC43INST%" ..\Logon\Template\ofc43usr.cmd ..\Logon\ofc43usr.cmd
  31. ..\acsr "#SYSTEMROOT#" "%SystemRoot%" ..\Logon\Template\ofc43usr.key ..\Logon\Template\ofc43usr.bak
  32. ..\acsr "#OFC43INST#" "%OFC43INST%" ..\Logon\Template\ofc43usr.bak ..\Logon\ofc43usr.key
  33. Del /F /Q ..\Logon\Template\ofc43usr.bak
  34. Rem
  35. Rem ����: ���̃X�N���v�g�̒��� CACLS �R�}���h�� NTFS
  36. Rem �t�H�[�}�b�g�̃p�[�e�B�V�����ł̂ݗL���ł��B
  37. Rem
  38. Rem ���݁A�C���X�g�[�� ���[�h�łȂ��ꍇ�A�C���X�g�[�� ���[�h�ɕύX���܂��B
  39. Set __OrigMode=Install
  40. ChgUsr /query > Nul:
  41. if Not ErrorLevel 101 Goto Begin
  42. Set __OrigMode=Exec
  43. Change User /Install > Nul:
  44. :Begin
  45. regini Office43.key > Nul:
  46. Rem ���̃��[�h�����s���[�h�������ꍇ�A���s���[�h�ɖ߂��܂��B
  47. If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
  48. Set __OrigMode=
  49. Rem
  50. Rem Office 4.3 ��INI �t�@�C�����X�V���܂��B
  51. Rem
  52. Rem Office �c�[���o�[�����N���������Ƃ��� Excel �p�� msoffice.ini �ɍ��Ɨp
  53. Rem �f�B���N�g�����ݒ肵�܂��BOffice �c�[���o�[�̕W���\���ł� Excel �� Word ��
  54. Rem ���̈ʒu�ɒu�����܂��B���݂��Ȃ��ꍇ�� msoffice.ini �� %SystemRoot% �̉���
  55. Rem �쐬�����܂��B
  56. ..\Aciniupd /e "Msoffice.ini" "ToolbarOrder" "MSApp1" "1,1,"
  57. ..\Aciniupd /e "Msoffice.ini" "ToolbarOrder" "MSApp2" "2,1,,%RootDrive%\office43"
  58. ..\Aciniupd /e "Word6.ini" "Microsoft Word" USER-DOT-PATH "%RootDrive%\OFFICE43\WINWORD"
  59. ..\Aciniupd /e "Word6.ini" "Microsoft Word" WORKGROUP-DOT-PATH "%OFC43INST%\WINWORD\TEMPLATE"
  60. ..\Aciniupd /e "Word6.ini" "Microsoft Word" INI-PATH "%RootDrive%\OFFICE43\WINWORD"
  61. ..\Aciniupd /e "Word6.ini" "Microsoft Word" DOC-PATH "%RootDrive%\OFFICE43"
  62. ..\Aciniupd /e "Word6.ini" "Microsoft Word" AUTOSAVE-PATH "%RootDrive%\OFFICE43"
  63. ..\Aciniupd /e "Excel5.ini" "Microsoft Excel" DefaultPath "%RootDrive%\OFFICE43"
  64. ..\Aciniupd /e "Excel5.ini" "Spell Checker" "Custom Dict 1" "%RootDrive%\OFFICE43\Custom.dic"
  65. ..\Aciniupd /k "Msacc20j.ini" Libraries "WZTABLE.MDA" "%RootDrive%\OFFICE43\ACCESS\WZTABLE.MDA"
  66. ..\Aciniupd /k "Msacc20j.ini" Libraries "WZLIB.MDA" "%RootDrive%\OFFICE43\ACCESS\WZLIB.MDA"
  67. ..\Aciniupd /k "Msacc20j.ini" Libraries "WZBLDR.MDA" "%RootDrive%\OFFICE43\ACCESS\WZBLDR.MDA"
  68. ..\Aciniupd /e "Msacc20j.ini" Options "SystemDB" "%RootDrive%\OFFICE43\ACCESS\System.MDA"
  69. Rem
  70. Rem WIN.INI ���X�V���܂��B
  71. Rem
  72. ..\Aciniupd /e "Win.ini" "MS Proofing Tools" "Custom Dict 1" "%RootDrive%\OFFICE43\Custom.dic"
  73. Rem
  74. Rem Artgalry �t�H���_�̃A�N�Z�X���‚��ύX���܂��B
  75. Rem
  76. cacls "%SystemRoot%\Msapps\Artgalry" /E /G "Terminal Server User":F > NUL: 2>&1
  77. Rem
  78. Rem MSQuery �t�H���_�̃A�N�Z�X���‚��ύX���܂��B
  79. Rem
  80. cacls "%SystemRoot%\Msapps\MSQUERY" /E /G "Terminal Server User":C > NUL: 2>&1
  81. Rem
  82. Rem Msacc20j.ini ���Ǘ��҂� Windows �f�B���N�g���ɃR�s�[���܂��B�Ǘ��҂̃t�@�C���͌Â����߂ł��B
  83. Rem
  84. Copy "%SystemRoot%\Msacc20j.ini" "%UserProfile%\Windows\" > NUL: 2>&1
  85. Rem �_�~�[ �t�@�C�����쐬���āA�C���X�g�[�������W�X�g�� �L�[���K�p���Ȃ��悤�ɂ��܂��B
  86. Copy NUL: "%UserProfile%\Windows\Ofc43usr.dmy" > NUL: 2>&1
  87. attrib +h "%UserProfile%\Windows\Ofc43usr.dmy" > NUL: 2>&1
  88. FindStr /I Ofc43Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  89. If Not ErrorLevel 1 Goto cont2
  90. Echo Call Ofc43Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  91. :cont2
  92. Echo.
  93. Echo �ύX���L���ɂ��邽�߂ɁA�Ǘ��҂̓��O�I�t���Ă����ēx���O�I�������K�v�������܂��B
  94. Echo �ύX���L���ɂ��邽�߂ɁA�Ǘ��҂̓��O�I�t���Ă����ēx���O�I������
  95. Echo �N���b�v �A�[�g �M�������[�������������K�v�������܂�:
  96. Echo Word �����s���� [�I�u�W�F�N�g�̑}��] ���I�����܂��B
  97. Echo [Microsoft �N���b�v�A�[�g �M�������[] ���I�����܂��B
  98. Echo [OK] ���N���b�N���ĕ\�������Ă����N���b�v�A�[�g���C���|�[�g���܂��B
  99. Echo �N���b�v�A�[�g �M�������[�� Word ���I�����܂��B
  100. Echo.
  101. Echo Microsoft Office 4.3 �̃}���`���[�U�[ �A�v���P�[�V�����‹��ݒ肪�������܂����B.
  102. Echo.
  103. Pause
  104. :Done