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.

162 lines
5.1 KiB

  1. @Echo Off
  2. Rem #########################################################################
  3. Rem
  4. Rem %RootDrive% ���\�������Ă��̃X�N���v�g�p�ɐݒ肳���Ă��邱�Ƃ��m�F���܂��B
  5. Rem
  6. Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
  7. If "%_CHKROOT%" == "FAIL" Goto Done
  8. Call "%SystemRoot%\Application Compatibility Scripts\SetPaths.Cmd"
  9. If "%_SETPATHS%" == "FAIL" Goto Done
  10. Rem #########################################################################
  11. Rem
  12. Rem ���W�X�g������ Project 98 ���C���X�g�[�������Ă����f�B���N�g�����擾���܂��B���‚����Ȃ��ꍇ�́A
  13. Rem ���̃A�v���P�[�V�����̓C���X�g�[�������Ă��Ȃ��Ɖ��肵�ăG���[���b�Z�[�W���\�����܂��B
  14. Rem
  15. ..\ACRegL %Temp%\Proj98.Cmd PROJINST "HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot" "OfficeBin" ""
  16. If Not ErrorLevel 1 Goto Cont0
  17. Echo.
  18. Echo ���W�X�g������ Project 98 �̃C���X�g�[���ꏊ���擾�ł��܂����ł����B
  19. Echo Project 98 ���C���X�g�[�������Ă��邩�ǂ����m�F���Ă����A���̃X�N���v�g��
  20. Echo ���s�����������B
  21. Echo.
  22. Pause
  23. Goto Done
  24. :Cont0
  25. Call %Temp%\Proj98.Cmd
  26. Del %Temp%\Proj98.Cmd >Nul: 2>&1
  27. Rem #########################################################################
  28. Rem
  29. Rem Office 97 ���C���X�g�[�������Ă����ꍇ�AProject 98 �̃C���X�g�[�� �X�N���v�g��
  30. Rem �e���v���[�g�����݂̃��[�U�[ �f�B���N�g���Ɉړ����܂����B
  31. Rem �e���v���[�g���O���[�o���ȏꏊ�ɒu���AProj98Usr.cmd ���e���v���[�g�� & Echo �e���[�U�[�̃f�B���N�g���ɖ߂��܂��B
  32. Rem
  33. If NOT Exist "%RootDrive%\Office97\Template\Microsoft Project" goto skip10
  34. If Exist "%PROJINST%\..\Templates\Microsoft Project" goto skip10
  35. xcopy "%RootDrive%\Office97\Template\Microsoft Project" "%PROJINST%\..\Templates\Microsoft Project" /E /I /K > Nul: 2>&1
  36. :skip10
  37. If NOT Exist "%RootDrive%\Office97\Template\Microsoft Project Web" goto skip11
  38. If Exist "%PROJINST%\..\Templates\Microsoft Project Web" goto skip11
  39. xcopy "%RootDrive%\Office97\Template\Microsoft Project Web" "%PROJINST%\..\Templates\Microsoft Project Web" /E /I /K > Nul: 2>&1
  40. :skip11
  41. Rem #########################################################################
  42. Rem
  43. Rem Global.mpt �t�@�C�����ǂݎ������p�ɂ��܂��B
  44. Rem �������� Project ���N�������ŏ��̃��[�U�[�� ACL ���ύX���܂��B
  45. Rem
  46. if Exist "%PROJINST%\Global.mpt" attrib +r "%PROJINST%\Global.mpt"
  47. Rem #########################################################################
  48. Rem
  49. Rem Office 97 �ɂ����čX�V���ꂽ�V�X�e�� DLL �ւ̓ǂݎ����A�N�Z�X�����S����
  50. Rem �^���܂��B
  51. Rem
  52. If Exist %SystemRoot%\System32\OleAut32.Dll cacls %SystemRoot%\System32\OleAut32.Dll /E /T /G "Authenticated Users":R > NUL: 2>&1
  53. Rem #########################################################################
  54. Rem
  55. Rem MsForms.Twd �t�@�C�����쐬���܂��B���̃t�@�C����
  56. Rem Powerpoint �� Excel �̃A�h�C�� ([�t�@�C��]/[���O���t���ĕۑ�] ��
  57. Rem HTML�t�H�[�}�b�g�Ȃ�) ���K�v�Ƃ����t�@�C���ł��B �ǂ��炩�̃v���O����
  58. Rem �����s�������ƁA�Y���̃t�@�C�����K�v�ȃf�[�^�����ƒt�@�C���Œu�������܂��B
  59. Rem
  60. If Exist %systemroot%\system32\MsForms.Twd Goto Cont2
  61. Copy Nul: %systemroot%\system32\MsForms.Twd >Nul:
  62. Cacls %systemroot%\system32\MsForms.Twd /E /P "Authenticated Users":F > Nul: 2>&1
  63. :Cont2
  64. Rem #########################################################################
  65. Rem
  66. Rem ���ׂẴ��[�U�[�p�̃X�^�[�g�A�b�v ���j���[���� Find Fast ���폜���܂��B
  67. Rem Find Fast �̓��\�[�X���W���I�Ɏg�p���A�V�X�e�� �p�t�H�[�}���X��
  68. Rem �e�����y�ڂ��܂��B
  69. Rem
  70. If Exist "%COMMON_STARTUP%\Microsoft Find Fast.lnk" Del "%COMMON_STARTUP%\Microsoft Find Fast.lnk"
  71. Rem #########################################################################
  72. Rem
  73. Rem ���W�X�g�� �L�[���ύX���āA�p�X�����[�U�[�ŗL�̃f�B���N�g��
  74. Rem ���w�������悤�ɂ��܂��B
  75. Rem
  76. Rem ���݁A�C���X�g�[�� ���[�h�łȂ��ꍇ�A�C���X�g�[�� ���[�h�ɕύX���܂��B
  77. Set __OrigMode=Install
  78. ChgUsr /query > Nul:
  79. if Not ErrorLevel 101 Goto Begin
  80. Set __OrigMode=Exec
  81. Change User /Install > Nul:
  82. :Begin
  83. Set __SharedTools=Shared Tools
  84. If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
  85. If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
  86. Set __SharedTools=Shared Tools (x86)
  87. :acsrCont1
  88. ..\acsr "#ROOTDRIVE#" "%RootDrive%" Template\msproj98.Key msproj98.tmp
  89. ..\acsr "#__SharedTools#" "%__SharedTools%" msproj98.tmp msproj98.Key
  90. Del msproj98.tmp >Nul: 2>&1
  91. regini msproj98.key > Nul:
  92. Rem ���̃��[�h�����s���[�h�������ꍇ�A���s���[�h�ɖ߂��܂��B
  93. If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
  94. Set __OrigMode=
  95. Rem #########################################################################
  96. Rem
  97. Rem ���ۂ̃C���X�g�[�� �f�B���N�g���𔽉f�����邽�� proj97Usr.Cmd ���X�V���āA
  98. Rem UsrLogn2.Cmd �X�N���v�g�ɒlj����܂��B
  99. Rem
  100. ..\acsr "#INSTDIR#" "%PROJINST%" ..\Logon\Template\prj98Usr.Cmd ..\Logon\prj98Usr.Cmd
  101. FindStr /I prj98Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  102. If Not ErrorLevel 1 Goto Skip1
  103. Echo Call prj98Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  104. :Skip1
  105. Rem #########################################################################
  106. Echo.
  107. Echo Project 98 �������ɍ쓮���邽�߂ɂ́A���݃��O�I�����Ă���
  108. Echo ���[�U�[�̓A�v���P�[�V���������s�����O�ɁA�������񃍃O�I�t����
  109. Echo �����ēx���O�I�������K�v�������܂��B
  110. Echo.
  111. Echo Microsoft Project 98 �̃}���`���[�U�[ �A�v���P�[�V�����‹��ݒ肪�������܂����B
  112. Pause
  113. :done