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.

127 lines
4.4 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 �t�@�C�����A���ׂẴ��[�U�[�p�̃e���v���[�g���猻�݂̃��[�U�[�̃e���v���[�g�̏ꏊ�ɃR�s�[���܂��B
  13. Rem
  14. If Not Exist "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" copy "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" "%ALLUSERSPROFILE%\%TEMPLATES%\" /Y >Nul: 2>&1
  15. Rem #########################################################################
  16. Rem
  17. Rem ���W�X�g������ Excel 97 ���C���X�g�[�������Ă����f�B���N�g�����擾���܂��B���‚����Ȃ��ꍇ�́A
  18. Rem Excel ���C���X�g�[�������Ă��Ȃ��Ɖ��肵�āA�G���[ ���b�Z�[�W���\�����܂��B
  19. Rem
  20. ..\ACRegL %Temp%\O97.Cmd O97INST "HKLM\Software\Microsoft\Office\8.0" "BinDirPath" "STRIPCHAR\1"
  21. If Not ErrorLevel 1 Goto Cont0
  22. Echo.
  23. Echo ���W�X�g������ Excel 97 �̃C���X�g�[���ꏊ���擾�ł��܂����B
  24. Echo Excel 97 ���C���X�g�[�������Ă��邱�Ƃ��m�F���Ă����A���̃X�N���v�g��
  25. Echo ���s�����������B
  26. Echo.
  27. Pause
  28. Goto Done
  29. :Cont0
  30. Call %Temp%\O97.Cmd
  31. Del %Temp%\O97.Cmd >Nul: 2>&1
  32. Rem #########################################################################
  33. Rem
  34. Rem ���ׂẴ��[�U�[�p�̃X�^�[�g�A�b�v ���j���[���� Find Fast ���폜���܂��B
  35. Rem Find Fast �̓��\�[�X���W���I�Ɏg�p���A�V�X�e���̃p�t�H�[�}���X�ɉe�����y�ڂ��܂��B
  36. Rem
  37. If Exist "%COMMON_STARTUP%\Microsoft Find Fast.lnk" Del "%COMMON_STARTUP%\Microsoft Find Fast.lnk" >Nul: 2>&1
  38. Rem #########################################################################
  39. Rem
  40. Rem MsForms.Twd �� RefEdit.Twd �t�@�C�����쐬���܂��B�������̃t�@�C����
  41. Rem Powerpoint �� Excel �̃A�h�C�� ([�t�@�C��]/[���O���t���ĕۑ�] ��
  42. Rem HTML�t�H�[�}�b�g�Ȃ�) ���K�v�Ƃ����t�@�C���ł��B �ǂ��炩�̃v���O����
  43. Rem �����s�������ƁA�Y���̃t�@�C�����K�v�ȃf�[�^�����ƒt�@�C���Œu�������܂��B
  44. Rem
  45. If Exist %systemroot%\system32\MsForms.Twd Goto Cont2
  46. Copy Nul: %systemroot%\system32\MsForms.Twd >Nul: 2>&1
  47. Cacls %systemroot%\system32\MsForms.Twd /E /P "Authenticated Users":F >Nul: 2>&1
  48. :Cont2
  49. If Exist %systemroot%\system32\RefEdit.Twd Goto Cont3
  50. Copy Nul: %systemroot%\system32\RefEdit.Twd >Nul: 2>&1
  51. Cacls %systemroot%\system32\RefEdit.Twd /E /P "Authenticated Users":F >Nul: 2>&1
  52. :Cont3
  53. Rem #########################################################################
  54. Rem
  55. Rem ���W�X�g�� �L�[���ύX���āA�p�X�����[�U�[�ŗL�̃f�B���N�g��
  56. Rem ���w�������悤�ɂ��܂��B
  57. Rem
  58. Rem ���݁A�C���X�g�[�� ���[�h�łȂ��ꍇ�A�C���X�g�[�� ���[�h�ɕύX���܂��B
  59. Set __OrigMode=Install
  60. ChgUsr /query > Nul:
  61. if Not ErrorLevel 101 Goto Begin
  62. Set __OrigMode=Exec
  63. Change User /Install > Nul:
  64. :Begin
  65. Set __SharedTools=Shared Tools
  66. If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
  67. If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
  68. Set __SharedTools=Shared Tools (x86)
  69. :acsrCont1
  70. ..\acsr "#ROOTDRIVE#" "%RootDrive%" Template\MsExcl97.Key MsExcl97.Tmp
  71. ..\acsr "#__SharedTools#" "%__SharedTools%" MsExcl97.Tmp MsExcl97.Tmp2
  72. ..\acsr "#INSTDIR#" "%O97INST%" MsExcl97.Tmp2 MsExcl97.Tmp3
  73. ..\acsr "#MY_DOCUMENTS#" "%MY_DOCUMENTS%" MsExcl97.Tmp3 MsExcl97.key
  74. Del MsExcl97.Tmp >Nul: 2>&1
  75. Del MsExcl97.Tmp2 >Nul: 2>&1
  76. Del MsExcl97.Tmp3 >Nul: 2>&1
  77. regini MsExcl97.key > Nul:
  78. Rem ���̃��[�h�����s���[�h�������ꍇ�A���s���[�h�ɖ߂��܂��B
  79. If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
  80. Set __OrigMode=
  81. Rem #########################################################################
  82. Rem
  83. Rem ���ۂ̃C���X�g�[�� �f�B���N�g���𔽉f�����邽�� Exl97Usr.Cmd ���X�V���āA
  84. Rem UsrLogn2.Cmd �X�N���v�g�ɒlj����܂��B
  85. Rem
  86. ..\acsr "#INSTDIR#" "%O97INST%" ..\Logon\Template\Exl97Usr.Cmd ..\Logon\Exl97Usr.Cmd
  87. FindStr /I Exl97Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  88. If Not ErrorLevel 1 Goto Skip1
  89. Echo Call Exl97Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  90. :Skip1
  91. Echo.
  92. Echo Microsoft Excel 97 �������ɍ쓮�����ɂ́A���݃��O�I�����Ă���
  93. Echo ���[�U�[�̓A�v���P�[�V���������s�����O�ɁA�������񃍃O�I�t����
  94. Echo �����ēx���O�I�������K�v�������܂��B
  95. Echo.
  96. Echo Microsoft Excel 97 �̃}���`���[�U�[ �A�v���P�[�V�����‹��ݒ肪�������܂����B
  97. Pause
  98. :Done