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.

183 lines
5.4 KiB

  1. @Echo Off
  2. Rem
  3. Rem ����: ���̃X�N���v�g�̒��� CACLS �R�}���h�� NTFS
  4. Rem �t�H�[�}�b�g�̃p�[�e�B�V�����ł̂ݗL���ł��B
  5. Rem
  6. Rem #########################################################################
  7. Rem
  8. Rem Corel Office 7 �f�B���N�g�������[�U�[�� Profile �����폜���܂��B
  9. Rem �ŏ��ɁACorel Office 7 �̃t�H���_���m���� All Users Profile �ɃR�s�[�������悤�ɁA
  10. Rem Execute ���[�h�ɖ߂��܂��B
  11. Rem
  12. Rem ���ݎ��s���[�h�łȂ��ꍇ�A�C���X�g�[�� ���[�h�ɕύX���܂��B
  13. ChgUsr /query > Nul:
  14. if ErrorLevel 101 Goto Begin1
  15. Set __OrigMode=Install
  16. Change User /Execute > Nul:
  17. :Begin1
  18. Rem ���̃��[�h���C���X�g�[�� ���[�h�������ꍇ�A�C���X�g�[�� ���[�h�֖߂��܂��B
  19. If "%__OrigMode%" == "Install" Change User /Install > Nul:
  20. Set __OrigMode=
  21. Rem #########################################################################
  22. Rem
  23. Rem %RootDrive% ���\�������Ă��̃X�N���v�g�p�ɐݒ肳���Ă��邱�Ƃ��m�F���܂��B
  24. Rem
  25. Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
  26. If "%_CHKROOT%" == "FAIL" Goto Done
  27. Call "%SystemRoot%\Application Compatibility Scripts\SetPaths.Cmd"
  28. If "%_SETPATHS%" == "FAIL" Goto Done
  29. Rem #########################################################################
  30. Rmdir "%USER_START_MENU%\Corel Office 7" /Q >Nul: 2>&1
  31. Rem
  32. Rem key �t�@�C�����ҏW�������@�����[�U�[�ɐ������܂��B
  33. Rem
  34. if "%RootDrive%"=="w:" goto PostDriveChange
  35. if "%RootDrive%"=="W:" goto PostDriveChange
  36. Echo �z�[���f�B���N�g���� coffice7.key �t�@�C���ɐݒ肵�Ă��������B
  37. Echo.
  38. Echo �ȉ��̎菇�ɏ]���Ă�������:
  39. Echo 1) �z�[���f�B���N�g���Ɋ��蓖�Ă��h���C�u������ ASCII �R�[�h�����̕\��
  40. Echo �T���Ă��������B�z�[���f�B���N�g���� %RootDrive% �ł��B
  41. Echo.
  42. Echo A = 61 E = 65 I = 69 M = 6D Q = 71 U = 75 Y = 79
  43. Echo B = 62 F = 66 J = 6A N = 6E R = 72 V = 76 Z = 7A
  44. Echo C = 63 G = 67 K = 6B O = 6F S = 73 W = 77
  45. Echo D = 64 H = 68 L = 6C P = 70 T = 74 X = 78
  46. Echo.
  47. Echo 2) ���������N�����ꂽ���A���ׂĂ� �R�[�h 77 ���菇 1 ��
  48. Echo �m�F�����R�[�h�ɒu�������Ă��������B
  49. Echo ����: �u���������Ƃ��ɗ]���ȃX�y�[�X�������Ȃ��悤�ɒ��ӂ��Ă��������B
  50. Echo 3) �t�@�C�����ۑ����ă��������I�����܂��B���̃X�N���v�g�͑��s�����܂��B
  51. Echo.
  52. Pause
  53. NotePad "%SystemRoot%\Application Compatibility Scripts\Install\coffice7.key"
  54. :PostDriveChange
  55. Rem ���݁A�C���X�g�[�� ���[�h�łȂ��ꍇ�A�C���X�g�[�� ���[�h�ɕύX���܂��B
  56. Set __OrigMode=Install
  57. ChgUsr /query > Nul:
  58. if Not ErrorLevel 101 Goto Begin2
  59. Set __OrigMode=Exec
  60. Change User /Install > Nul:
  61. :Begin2
  62. regini COffice7.key > Nul:
  63. Rem ���̃��[�h�����s���[�h�������ꍇ�A���s���[�h�ɖ߂��܂��B
  64. If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
  65. Set __OrigMode=
  66. Rem #########################################################################
  67. Rem
  68. Rem �C���X�g�[���ꏊ���� iBase �f�[�^�x�[�X���R�s�[���郍�O�I�� �X�N���v�g���ύX���܂��B
  69. Rem
  70. ..\ACRegL %Temp%\COffice7.Cmd COffice7Loc "HKLM\Software\PerfectOffice\Products\WordPerfect\7" "ExeLocation" "StripChar\2"
  71. If ErrorLevel 1 Goto InstallError
  72. Call %Temp%\COffice7.Cmd
  73. Del %Temp%\COffice7.Cmd >Nul: 2>&1
  74. ..\acsr "#COFFICE7INST#" "%COffice7Loc%\\" ..\Logon\Template\cofc7usr.Cmd ..\Logon\cofc7usr.Cmd
  75. If ErrorLevel 1 Goto InstallError
  76. goto PostInstallError
  77. :InstallError
  78. Echo.
  79. Echo ���W�X�g������ Corel Office 7 �̃C���X�g�[���ꏊ���擾�ł��܂����B
  80. Echo Corel Office 7 ���C���X�g�[���������ɂ��̃X�N���v�g�����s���Ă��邩
  81. Echo �������x�m�F�����������B
  82. Echo.
  83. Pause
  84. Goto Done
  85. :PostInstallError
  86. Rem #########################################################################
  87. Rem
  88. Rem WordPerfect �̃e���v���[�g���ǂݎ������p�ɕύX���܂��B
  89. Rem �����ɂ����A���[�U�[�͕ύX�����O�ɃR�s�[���Ȃ����΂Ȃ��܂����B
  90. Rem �������ɁA���ꂼ���̃��[�U�[�Ɍl�p�̃e���v���[�g
  91. Rem �f�B���N�g�����^�������@�������܂��B
  92. Rem
  93. attrib +r %COffice7Loc%\Template\*wpt /s >Nul: 2>&1
  94. Rem #########################################################################
  95. Rem
  96. Rem COfc7Usr.Cmd �� UsrLogn2.Cmd �X�N���v�g�ɒlj����܂��B
  97. Rem
  98. FindStr /I COfc7Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  99. If Not ErrorLevel 1 Goto Skip1
  100. Echo Call COfc7Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  101. :Skip1
  102. Rem #########################################################################
  103. Rem
  104. Rem ���݂��Ȃ����� "Personal" �f�B���N�g�����쐬���܂��B
  105. Rem �Ǘ��҂��ȉ��̏������蓮�ōs�����߁A�����Ńf�B���N�g�����쐬���Ă���
  106. Rem �K�v�������܂��B
  107. Rem
  108. If Not Exist "%RootDrive%\Personal" Md "%RootDrive%\Personal"
  109. Rem #########################################################################
  110. cls
  111. Echo.
  112. Echo ���̎菇�ɏ]���� Quattro Pro �̊����̃f�B���N�g����
  113. Echo �蓮�ŕύX�����K�v�������܂�:
  114. Echo 1) �R�}���h�s�� 'change user /install' �����͂��܂��B
  115. Echo 2) Quattro Pro ���N�����܂��B
  116. Echo 3) [�ҏW] ���j���[���� [�����ݒ�] ���I�����܂��B
  117. Echo 4) [�t�@�C���I�v�V����] �^�u�ֈړ����܂��B
  118. Echo 5) �t�H���_�� %RootDrive%\Personal �ɕύX���܂��B
  119. Echo 6) �v���O�������I�����܂��B
  120. Echo 7) �R�}���h�s�� 'change user /execute' �����͂��܂��B
  121. Echo.
  122. pause
  123. Echo.
  124. Echo Corel Office 7 �������ɍ쓮���邽�߂ɂ́A���݃��O�I�����Ă���
  125. Echo ���[�U�[�̓A�v���P�[�V���������s�����O�ɁA�������񃍃O�I�t����
  126. Echo �����ēx���O�I�������K�v�������܂��B
  127. Echo.
  128. Echo Corel Office 7 �̃}���`���[�U�[ �A�v���P�[�V�����‹��ݒ肪�������܂����B
  129. Pause
  130. :Done