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 ���W�X�g������ Office 95 ���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%\O95.Cmd O95INST "HKLM\Software\Microsoft\Microsoft Office\95\InstallRoot" "" ""
  16. If Not ErrorLevel 1 Goto Cont0
  17. ..\ACRegL %Temp%\O95.Cmd O95INST "HKLM\Software\Microsoft\Microsoft Office\95\InstallRootPro" "" ""
  18. If Not ErrorLevel 1 Goto Cont0
  19. Echo.
  20. Echo ���W�X�g������ Office 95 �̃C���X�g�[���ꏊ���擾�ł��܂����B
  21. Echo Office 95 ���C���X�g�[�������Ă��邩�ǂ����m�F���Ă����A���̃X�N���v�g��
  22. Echo ���s�����������B
  23. Echo.
  24. Pause
  25. Goto Done
  26. :Cont0
  27. Call %Temp%\O95.Cmd
  28. Del %Temp%\O95.Cmd >Nul: 2>&1
  29. Rem #########################################################################
  30. Rem
  31. Rem ���ׂẴ��[�U�[�p�̃X�^�[�g�A�b�v ���j���[���� Find Fast ���폜���܂��B
  32. Rem Find Fast �̓��\�[�X���W���I�Ɏg�p���A�V�X�e���̃p�t�H�[�}���X�ɉe�����y�ڂ��܂��B
  33. Rem ���݂̃��[�U�[�p�̃��j���[�ƑS���[�U�[�p�̃��j���[�̗������m�F���܂��B
  34. Rem �ǂ����̃��j���[���\�������邩�ɂ‚��ẮA�V�X�e�������s���[�h�ɖ߂���
  35. Rem ���邩�ǂ����Ɉˑ����܂��B
  36. Rem
  37. If Not Exist "%USER_STARTUP%\Find Fast �p���ޯ���쐬°�.lnk" Goto Cont1
  38. Del "%USER_STARTUP%\Find Fast �p���ޯ���쐬°�.lnk" >Nul: 2>&1
  39. :Cont1
  40. If Not Exist "%COMMON_STARTUP%\Find Fast �p���ޯ���쐬°�.lnk" Goto Cont2
  41. Del "%COMMON_STARTUP%\Find Fast �p���ޯ���쐬°�.lnk" >Nul: 2>&1
  42. :Cont2
  43. Rem #########################################################################
  44. Rem
  45. Rem PowerPoint �ƃo�C���_�̃t�@�C���� All Users �f�B���N�g���ɃR�s�[���āA���ꂼ����
  46. Rem ���[�U�[�̃��O�C�����Ƀ��[�U�[�̃z�[���f�B���N�g���ɃR�s�[�������悤�ɂ��܂��B
  47. Rem
  48. If Not Exist "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER70.OBD" copy "%UserProfile%\%TEMPLATES%\BINDER70.OBD" "%ALLUSERSPROFILE%\%TEMPLATES%\" /Y >Nul: 2>&1
  49. If Not Exist "%ALLUSERSPROFILE%\%TEMPLATES%\PPT70.PPT" copy "%UserProfile%\%TEMPLATES%\PPT70.PPT" "%ALLUSERSPROFILE%\%TEMPLATES%" /Y >Nul: 2>&1
  50. Rem #########################################################################
  51. Rem
  52. Rem ���W�X�g�� �L�[���ύX���āA�p�X�����[�U�[�ŗL�̃f�B���N�g�����w�������悤�ɂ��܂��B
  53. Rem
  54. Rem ���݁A�C���X�g�[�� ���[�h�łȂ��ꍇ�A�C���X�g�[�� ���[�h�ɕύX���܂��B
  55. Set __OrigMode=Install
  56. ChgUsr /query > Nul:
  57. if Not ErrorLevel 101 Goto Begin
  58. Set __OrigMode=Exec
  59. Change User /Install > Nul:
  60. :Begin
  61. Set __SharedTools=Shared Tools
  62. If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
  63. If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
  64. Set __SharedTools=Shared Tools (x86)
  65. :acsrCont1
  66. ..\acsr "#ROOTDRIVE#" "%RootDrive%" Template\Office95.Key Office95.Tmp
  67. ..\acsr "#__SharedTools#" "%__SharedTools%" Office95.Tmp Office95.Tmp2
  68. ..\acsr "#INSTDIR#" "%O95INST%" Office95.Tmp2 Office95.Tmp3
  69. ..\acsr "#MY_DOCUMENTS#" "%MY_DOCUMENTS%" Office95.Tmp3 Office95.Key
  70. Del Office95.Tmp >Nul: 2>&1
  71. Del Office95.Tmp2 >Nul: 2>&1
  72. Del Office95.Tmp3 >Nul: 2>&1
  73. regini Office95.key > Nul:
  74. Rem ���̃��[�h�����s���[�h�������ꍇ�A���s���[�h�ɖ߂��܂��B
  75. If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
  76. Set __OrigMode=
  77. Rem #########################################################################
  78. Rem
  79. Rem ���ۂ̃C���X�g�[�� �f�B���N�g���𔽉f�����邽�� Ofc95Usr.Cmd ���X�V���āA
  80. Rem UsrLogn2.Cmd �X�N���v�g�ɒlj����܂��B
  81. Rem
  82. ..\acsr "#INSTDIR#" "%O95INST%" ..\Logon\Template\Ofc95Usr.Cmd ..\Logon\Ofc95Usr.Cmd
  83. FindStr /I Ofc95Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  84. If Not ErrorLevel 1 Goto Skip1
  85. Echo Call Ofc95Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  86. :Skip1
  87. Rem #########################################################################
  88. Echo.
  89. Echo Office 95 �������ɍ쓮���邽�߂ɂ́A���݃��O�I�����Ă���
  90. Echo ���[�U�[�̓A�v���P�[�V���������s�����O�ɁA�������񃍃O�I�t����
  91. Echo �����ēx���O�I�������K�v�������܂��B
  92. Echo.
  93. Echo Microsoft Office 95 �̃}���`���[�U�[ �A�v���P�[�V�����‹��ݒ肪�������܂����B
  94. Pause
  95. :Done