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.

496 lines
8.9 KiB

  1. @Echo Off
  2. Rem
  3. Rem ����: �� ��ũ��Ʈ ���� CACLS ���ɾ��� NTFS�� ���˵� ��Ƽ�ǿ�����
  4. Rem ������ �� �ֽ��ϴ�.
  5. Rem
  6. Rem #########################################################################
  7. Rem #########################################################################
  8. Rem
  9. Rem %RootDrive%�� �����Ǿ����� Ȯ���ϰ� �� ��ũ��Ʈ�� ���� �����մϴ�.
  10. Rem
  11. Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
  12. If "%_CHKROOT%" == "FAIL" Goto Done
  13. Call "%SystemRoot%\Application Compatibility Scripts\SetPaths.Cmd"
  14. If "%_SETPATHS%" == "FAIL" Goto Done
  15. Rem #########################################################################
  16. Rem
  17. Rem ���� ������ ���ø����� ���� ������ ���ø� ��ġ�� ������ �����մϴ�.
  18. Rem
  19. If Not Exist "%ALLUSERSPROFILE%\%TEMPLATES%\WINWORD8.DOC" copy "%UserProfile%\%TEMPLATES%\WINWORD8.DOC" "%ALLUSERSPROFILE%\%TEMPLATES%\" /Y >Nul: 2>&1
  20. If Not Exist "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" copy "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" "%ALLUSERSPROFILE%\%TEMPLATES%\" /Y >Nul: 2>&1
  21. If Not Exist "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER.OBD" copy "%UserProfile%\%TEMPLATES%\BINDER.OBD" "%ALLUSERSPROFILE%\%TEMPLATES%\" /Y >Nul: 2>&1
  22. Rem
  23. Rem ������Ʈ������ Office 97 ��ġ ��ġ�� �����ϴ�. ������ ������,
  24. Rem Office�� ��ġ�Ǿ� ���� �ʴ� ������ �����ϰ� ���� �޽����� ǥ���մϴ�.
  25. Rem
  26. ..\ACRegL %Temp%\O97.Cmd O97INST "HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot" "" ""
  27. If Not ErrorLevel 1 Goto Cont0
  28. Echo.
  29. Echo ������Ʈ������ Office 97 ��ġ ��ġ�� �˻����� ���߽��ϴ�.
  30. Echo Office 97�� ��ġ�Ǿ� �ִ��� Ȯ���ϰ� �� ��ũ��Ʈ��
  31. Echo �ٽ� �����Ͻʽÿ�.
  32. Echo.
  33. Pause
  34. Goto Done
  35. :Cont0
  36. Call %Temp%\O97.Cmd
  37. Del %Temp%\O97.Cmd >Nul: 2>&1
  38. Rem #########################################################################
  39. Rem
  40. Rem Access 97 �ý��� �����ͺ��̽��� �б� �������� �����մϴ�. �̷��� �ϸ�
  41. Rem ���� ������ ���ÿ� �����ͺ��̽��� ������ �� ������ [����/����] �޴�
  42. Rem �ɼ��� �����Ͽ� �Ϲ������� �� �� �ִ� �ý��� �����ͺ��̽� ������Ʈ��
  43. Rem �� �� ���� �˴ϴ�. �����ڸ� �߰��� �ʿ䰡 ������ ���� �ý��� ������
  44. Rem ���̽��� ���� �׼����� �ο��ؾ�
  45. Rem �մϴ�.
  46. Rem
  47. If Not Exist %SystemRoot%\System32\System.Mdw Goto Cont1
  48. cacls %SystemRoot%\System32\System.Mdw /E /P "Authenticated Users":R >NUL: 2>&1
  49. cacls %SystemRoot%\System32\System.Mdw /E /P "Power Users":R >NUL: 2>&1
  50. cacls %SystemRoot%\System32\System.Mdw /E /P Administrators:R >NUL: 2>&1
  51. :Cont1
  52. Rem #########################################################################
  53. Rem
  54. Rem Office 97�� ������Ʈ�ϴ� �ý��� DLL����
  55. Rem ���ο� ���� �б� �׼����� �����մϴ�.
  56. Rem
  57. REM If Exist %SystemRoot%\System32\OleAut32.Dll cacls %SystemRoot%\System32\OleAut32.Dll /E /T /G "Authenticated Users":R >NUL: 2>&1
  58. Rem #########################################################################
  59. Rem #########################################################################
  60. Rem
  61. Rem outlook�� ���� frmcache.dat ���Ͽ��� �͹̳� ������ �����ڿ� ���� ���� �׼����� �����մϴ�.
  62. Rem
  63. If Exist %SystemRoot%\Forms\frmcache.dat cacls %SystemRoot%\forms\frmcache.dat /E /G "Terminal Server User":C >NUL: 2>&1
  64. Rem #########################################################################
  65. Rem
  66. Rem Powerpoint �����縦 �б� �������� �����Ͽ� ���ÿ� �ϳ� �̻���
  67. Rem �����縦 �ҷ� �� �� �ְ� �մϴ�.
  68. Rem
  69. If Exist "%O97INST%\Templates\Presentations\AutoContent Wizard.Pwz" Attrib +R "%O97INST%\Templates\Presentations\AutoContent Wizard.Pwz" >Nul: 2>&1
  70. If Exist "%O97INST%\Office\Ppt2html.ppa" Attrib +R "%O97INST%\Office\Ppt2html.ppa" >Nul: 2>&1
  71. If Exist "%O97INST%\Office\bshppt97.ppa" Attrib +R "%O97INST%\Office\bshppt97.ppa" >Nul: 2>&1
  72. If Exist "%O97INST%\Office\geniwiz.ppa" Attrib +R "%O97INST%\Office\geniwiz.ppa" >Nul: 2>&1
  73. If Exist "%O97INST%\Office\ppttools.ppa" Attrib +R "%O97INST%\Office\ppttools.ppa" >Nul: 2>&1
  74. If Exist "%O97INST%\Office\graphdrs.ppa" Attrib +R "%O97INST%\Office\graphdrs.ppa" >Nul: 2>&1
  75. Rem #########################################################################
  76. Rem
  77. Rem �����ڰ� �ƴ� �����ڰ� Access ������ �Ǵ� Excel�� Access �߰� ������
  78. Rem ������ �� �ְ� �Ϸ��� ���� �� �ٿ��� "Rem"�� �����Ͽ�
  79. Rem �����ڿ��� ������ ���Ͽ� ���� ���� �׼����� �ο��Ͻʽÿ�.
  80. Rem
  81. Rem
  82. Rem If Exist "%O97INST%\Office\WZLIB80.MDE" cacls "%O97INST%\Office\WZLIB80.MDE" /E /P "Authenticated Users":C >NUL: 2>&1
  83. Rem If Exist "%O97INST%\Office\WZMAIN80.MDE" cacls "%O97INST%\Office\WZMAIN80.MDE" /E /P "Authenticated Users":C >NUL: 2>&1
  84. Rem If Exist "%O97INST%\Office\WZTOOL80.MDE" cacls "%O97INST%\Office\WZTOOL80.MDE" /E /P "Authenticated Users":C >NUL: 2>&1
  85. Rem #########################################################################
  86. Rem
  87. Rem Powerpoint �� Excel �߰� ���ɿ� �ʿ��� MsForms.Twd �� RefEdit.Twd ����
  88. Rem (����/HTML�� ����, ��)�� �����ϴ�. �� �� �ϳ��� ���α׷���
  89. Rem �����Ǹ� �� ���α׷��� �� ������ �ʿ��� �����Ͱ� ���� �ִ�
  90. Rem ���Ϸ� �ٲߴϴ�.
  91. Rem
  92. If Exist %systemroot%\system32\MsForms.Twd Goto Cont2
  93. Copy Nul: %systemroot%\system32\MsForms.Twd >Nul: 2>&1
  94. Cacls %systemroot%\system32\MsForms.Twd /E /P "Authenticated Users":F >Nul: 2>&1
  95. :Cont2
  96. If Exist %systemroot%\system32\RefEdit.Twd Goto Cont3
  97. Copy Nul: %systemroot%\system32\RefEdit.Twd >Nul: 2>&1
  98. Cacls %systemroot%\system32\RefEdit.Twd /E /P "Authenticated Users":F >Nul: 2>&1
  99. :Cont3
  100. Rem #########################################################################
  101. Rem
  102. Rem SystemRoot �Ʒ��� msremote.sfs�� �����ϴ�. �̷��� �ϸ�
  103. Rem �������� ���� �� �������� "���� �� �ѽ�"�� ������ �� �ְ� �մϴ�.
  104. Rem
  105. md %systemroot%\msremote.sfs > Nul: 2>&1
  106. Rem #########################################################################
  107. Rem
  108. Rem ���� �����ڿ� ���� [����] �޴����� [���� ã��]�� �����մϴ�.
  109. Rem [���� ã��]�� ���ҽ��� ���� �ʿ��� �ϸ� �ý��� ���ɿ� ������
  110. Rem �ݴϴ�.
  111. Rem
  112. If Exist "%COMMON_STARTUP%\Microsoft Find Fast.lnk" Del "%COMMON_STARTUP%\Microsoft Find Fast.lnk" >Nul: 2>&1
  113. Rem #########################################################################
  114. Rem
  115. Rem ���� �����ڿ� ���� [����] �޴����� "Microsoft Office �ٷ� ���� ����.lnk" ������ �����մϴ�.
  116. Rem
  117. If Exist "%COMMON_STARTUP%\Microsoft Office Shortcut Bar.lnk" Del "%COMMON_STARTUP%\Microsoft Office Shortcut Bar.lnk" >Nul: 2>&1
  118. Rem #########################################################################
  119. Rem
  120. Rem SystemRoot �Ʒ��� msfslog.txt ������ ������ Terminal Server Users����
  121. Rem �� ���Ͽ� ���� ���� ������ �ݴϴ�.
  122. Rem
  123. If Exist %systemroot%\MSFSLOG.TXT Goto MsfsACLS
  124. Copy Nul: %systemroot%\MSFSLOG.TXT >Nul: 2>&1
  125. :MsfsACLS
  126. Cacls %systemroot%\MSFSLOG.TXT /E /P "Terminal Server User":F >Nul: 2>&1
  127. Rem #########################################################################
  128. Rem
  129. Rem ������Ʈ�� Ű�� �����Ͽ� ���ΰ� ������ ������
  130. Rem �����͸��� ����Ű���� �մϴ�.
  131. Rem
  132. Rem ���� ��ġ ���忡 ���� ������ ��ġ ������ �����մϴ�.
  133. Set __OrigMode=Install
  134. ChgUsr /query > Nul:
  135. if Not ErrorLevel 101 Goto Begin
  136. Set __OrigMode=Exec
  137. Change User /Install > Nul:
  138. :Begin
  139. Set __SharedTools=Shared Tools
  140. If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
  141. If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
  142. Set __SharedTools=Shared Tools (x86)
  143. :acsrCont1
  144. ..\acsr "#ROOTDRIVE#" "%RootDrive%" Template\Office97.Key Office97.Tmp
  145. ..\acsr "#__SharedTools#" "%__SharedTools%" Office97.Tmp Office97.Tmp2
  146. ..\acsr "#INSTDIR#" "%O97INST%" Office97.Tmp2 Office97.Tmp3
  147. ..\acsr "#MY_DOCUMENTS#" "%MY_DOCUMENTS%" Office97.Tmp3 Office97.Key
  148. Del Office97.Tmp >Nul: 2>&1
  149. Del Office97.Tmp2 >Nul: 2>&1
  150. Del Office97.Tmp3 >Nul: 2>&1
  151. regini Office97.key > Nul:
  152. Rem ���� ���尡 ���� ���忴����, ���� ������ �ٽ� �����մϴ�.
  153. If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
  154. Set __OrigMode=
  155. Rem #########################################################################
  156. Rem
  157. Rem Ofc97Usr.Cmd�� ������Ʈ�Ͽ� ���� ��ġ �����͸��� �ݿ��ϰ� �̸�
  158. Rem UsrLogn2.Cmd ��ũ��Ʈ�� �߰��մϴ�.
  159. Rem
  160. ..\acsr "#INSTDIR#" "%O97INST%" ..\Logon\Template\Ofc97Usr.Cmd ..\Logon\Ofc97Usr.Cmd
  161. FindStr /I Ofc97Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  162. If Not ErrorLevel 1 Goto Skip1
  163. Echo Call Ofc97Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  164. :Skip1
  165. Echo.
  166. Echo Office 97�� �ùٸ��� �۾��ϱ� ����
  167. Echo ���� �α׿µǾ� �ִ� �����ڰ� �α׿����ϰ� �ٽ� �α׿��� ��
  168. Echo Office 97 ���� ���α׷��� �����ؾ� �մϴ�.
  169. Echo.
  170. Echo Microsoft Office 97 ���� ������ ���� ���α׷� ���� �Ϸ�
  171. Pause
  172. :done