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.

284 lines
9.6 KiB

  1. @Echo Off
  2. Rem #########################################################################
  3. Rem
  4. Rem %RootDrive%�� �����Ǿ����� Ȯ���ϰ� �� ��ũ��Ʈ�� ���� �����մϴ�.
  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. Set __SharedTools=Shared Tools
  11. If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto Start0
  12. If Not Exist "%ProgramFiles(x86)%" goto Start0
  13. Set __SharedTools=Shared Tools (x86)
  14. :Start0
  15. Rem #########################################################################
  16. Rem ���� ���α׷� ���޾�ü �̸��� �����մϴ�.
  17. SET VendorName=Microsoft
  18. Rem #########################################################################
  19. Rem ���� ���� ���θ� MS Office 2000�� �����ϴ� ���η� �����մϴ�.
  20. SET ProofingPath=Proof
  21. Rem #########################################################################
  22. Rem ���� ���α׷��� �� ��ġ ��Ʈ�� �����ϴ� ������Ʈ�� Ű �� ���� �����մϴ�.
  23. SET AppRegKey=HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot
  24. SET AppRegValue=OfficeBin
  25. Rem #########################################################################
  26. Rem ���� ���α׷��� �� ���ø� ���ο� �����ϴ� ������Ʈ�� Ű �� ���� �����մϴ�.
  27. SET AppTemplatesRegKey=HKCU\Software\Microsoft\Office\8.0\Common\FileNew\LocalTemplates
  28. SET AppTemplatesRegValue=
  29. Rem #########################################################################
  30. Rem ���� ���α׷��� ������ ���� ���� ���� �� �̸��� �����ϴ� ������Ʈ�� Ű �� ���� �����մϴ�.
  31. SET AppCustomDicRegKey=HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Custom Dictionaries
  32. SET AppCustomDicRegValue=1
  33. Rem #########################################################################
  34. Rem �Ϻ� Ư���� �������� ���� ���α׷� ���� �̸� �� ���� �̸��� �����մϴ�.
  35. SET CustomDicFile=Custom.Dic
  36. SET AppPathName=Microsoft Project
  37. SET AppWebPathName=Microsoft Project Web
  38. Rem #########################################################################
  39. Rem �⺻ ���θ� MS Office 2000�� �����ϴ� ���η� �����մϴ�.
  40. SET AppData=%RootDrive%\%APP_DATA%
  41. SET UserTemplatesPath=%AppData%\%VendorName%\%TEMPLATES%
  42. SET UserCustomDicPath=%AppData%\%VendorName%\%ProofingPath%
  43. Rem #########################################################################
  44. Rem ������Ʈ������ Project 98 ��ġ ��ġ�� �����ϴ�. ������ ������,
  45. Rem Project �� ��ġ�Ǿ� ���� �ʴ� ������ �����ϰ� ���� �޽����� ǥ���մϴ�.
  46. Rem
  47. ..\ACRegL %Temp%\Proj98.Cmd PROJINST "%AppRegKey%" "%AppRegValue%" ""
  48. If Not ErrorLevel 1 Goto Cont0
  49. Echo.
  50. Echo ������Ʈ������ Project 98 ��ġ ��ġ�� �˻����� ���߽��ϴ�.
  51. Echo Project 98�� ��ġ�Ǿ� �ִ��� Ȯ���ϰ� �� ��ũ��Ʈ��
  52. Echo �ٽ� �����Ͻʽÿ�.
  53. Echo.
  54. Pause
  55. Goto Done
  56. :Cont0
  57. Call %Temp%\Proj98.Cmd
  58. Del %Temp%\Proj98.Cmd >Nul: 2>&1
  59. ..\ACRegL %Temp%\Proj98.Cmd PROJROOT "%AppRegKey%" "%AppRegValue%" "STRIPCHAR\1"
  60. If Not ErrorLevel 1 Goto Cont01
  61. Echo.
  62. Echo ������Ʈ������ Project 98 ��ġ ��ġ�� �˻����� ���߽��ϴ�.
  63. Echo Project 98�� ��ġ�Ǿ� �ִ��� Ȯ���ϰ� �� ��ũ��Ʈ��
  64. Echo �ٽ� �����Ͻʽÿ�.
  65. Echo.
  66. Pause
  67. Goto Done
  68. :Cont01
  69. Call %Temp%\Proj98.Cmd
  70. Del %Temp%\Proj98.Cmd >Nul: 2>&1
  71. Rem #########################################################################
  72. Rem ������Ʈ������ ���ø� ���� �̸��� �����ϴ�.
  73. Rem
  74. ..\ACRegL %Temp%\Proj98.Cmd TemplatesPathName "%AppTemplatesRegKey%" "%AppTemplatesRegValue%" "STRIPPATH"
  75. If Not ErrorLevel 1 Goto Cont02
  76. SET TemplatesPathName=%TEMPLATES%
  77. Goto Cont03
  78. :Cont02
  79. Call %Temp%\Proj98.Cmd
  80. Del %Temp%\Proj98.Cmd >Nul: 2>&1
  81. :Cont03
  82. Rem #########################################################################
  83. Rem MS Office 97�� ��ġ�Ǿ� ���� ������ �⺻ ���θ� �����մϴ�.
  84. If Not Exist "%RootDrive%\Office97" Goto SetPathNames
  85. Rem #########################################################################
  86. Rem MS Office 97�� ��ġ�Ǿ� �ָ� MS Office 97 ���θ� �����մϴ�.
  87. Rem #########################################################################
  88. Rem ������Ʈ������ ������ ���� dic ���� �̸��� �����ϴ�.
  89. Rem
  90. ..\ACRegL %Temp%\Proj98.Cmd AppData "%AppCustomDicRegKey%" "%AppCustomDicRegValue%" "STRIPCHAR\1"
  91. If Not ErrorLevel 1 Goto Cont04
  92. SET AppData=%RootDrive%\Office97
  93. Goto Cont05
  94. :Cont04
  95. Call %Temp%\Proj98.Cmd
  96. Del %Temp%\Proj98.Cmd >Nul: 2>&1
  97. :Cont05
  98. Rem #########################################################################
  99. Rem ������Ʈ������ ���ø� ���� �̸��� �����ϴ�.
  100. Rem
  101. ..\ACRegL %Temp%\Proj98.Cmd UserTemplatesPath "%AppTemplatesRegKey%" "%AppTemplatesRegValue%" ""
  102. If Not ErrorLevel 1 Goto Cont06
  103. SET UserTemplatesPath=%AppData%\%TemplatesPathName%
  104. Goto Cont07
  105. :Cont06
  106. Call %Temp%\Proj98.Cmd
  107. Del %Temp%\Proj98.Cmd >Nul: 2>&1
  108. :Cont07
  109. SET UserCustomDicPath=%AppData%
  110. :SetPathNames
  111. Rem #########################################################################
  112. Rem ������ �� ���� ���� �̸��� �����մϴ�.
  113. SET CommonCustomDicPath=%PROJINST%
  114. SET CommonTemplatesPath=%PROJROOT%\%TemplatesPathName%
  115. SET UserCustomDicFileName=%UserCustomDicPath%\%CustomDicFile%
  116. SET UserAppTemplatesPath=%UserTemplatesPath%\%AppPathName%
  117. SET UserAppWebTemplatesPath=%UserTemplatesPath%\%AppWebPAthName%
  118. SET CommonAppTemplatesPath=%CommonTemplatesPath%\%AppPathName%
  119. SET CommonAppWebTemplatesPath=%CommonTemplatesPath%\%AppWebPAthName%
  120. Rem #########################################################################
  121. Rem
  122. Rem Office 97�� ��ġ�Ǿ� ������ Project 98 ��ġ ��ũ��Ʈ��
  123. Rem ���ø��� ���� ������ �����͸��� �̵��߽��ϴ�.
  124. Rem �۷ι� ��ġ�� �����ʽÿ�. Proj98Usr.cmd�� �� �ڸ��� �̵���ų ���Դϴ�.
  125. Rem
  126. If NOT Exist "%UserAppTemplatesPath%" goto skip10
  127. If Exist "%CommonAppTemplatesPath%" goto skip10
  128. xcopy "%UserAppTemplatesPath%" "%CommonAppTemplatesPath%" /E /I /K > Nul: 2>&1
  129. :skip10
  130. If NOT Exist "%UserAppWebTemplatesPath%" goto skip11
  131. If Exist "%CommonAppWebTemplatesPath%" goto skip11
  132. xcopy "%UserAppWebTemplatesPath%" "%CommonAppWebTemplatesPath%" /E /I /K > Nul: 2>&1
  133. :skip11
  134. Rem #########################################################################
  135. Rem
  136. Rem Global.mpt ������ �б� �������� �����ϴ�.
  137. Rem �׷��� ������ Project�� �����ϴ� ù �����ڰ� ACL�� ������ ���Դϴ�.
  138. Rem
  139. if Exist "%PROJINST%\Global.mpt" attrib +r "%PROJINST%\Global.mpt"
  140. Rem #########################################################################
  141. Rem
  142. Rem Office 97�� ������Ʈ�ϴ� �ý��� DLL����
  143. Rem ���ο� ���� �б� �׼����� �����մϴ�.
  144. Rem
  145. If Exist %SystemRoot%\System32\OleAut32.Dll cacls %SystemRoot%\System32\OleAut32.Dll /E /T /G "Authenticated Users":R > NUL: 2>&1
  146. Rem #########################################################################
  147. Rem
  148. Rem Powerpoint �� Excel �߰� ���ɿ� �ʿ��� MsForms.Twd ����
  149. Rem (����/HTML�� ����, ��)�� �����ϴ�. �� �� �ϳ��� ���α׷���
  150. Rem �����Ǹ� �� ���α׷��� �� ������ �ʿ��� �����Ͱ� ���� �ִ�
  151. Rem ���Ϸ� �ٲߴϴ�.
  152. Rem
  153. If Exist %systemroot%\system32\MsForms.Twd Goto Cont2
  154. Copy Nul: %systemroot%\system32\MsForms.Twd >Nul:
  155. Cacls %systemroot%\system32\MsForms.Twd /E /P "Authenticated Users":F > Nul: 2>&1
  156. :Cont2
  157. Rem #########################################################################
  158. Rem
  159. Rem ���� �����ڿ� ���� [����] �޴����� [���� ã��]�� �����մϴ�.
  160. Rem [���� ã��]�� ���ҽ��� ���� �ʿ��� �ϸ� �ý��� ���ɿ� ������
  161. Rem �ݴϴ�.
  162. Rem
  163. If Exist "%COMMON_STARTUP%\Microsoft Find Fast.lnk" Del "%COMMON_STARTUP%\Microsoft Find Fast.lnk"
  164. Rem #########################################################################
  165. Rem
  166. Rem ������Ʈ�� Ű�� �����Ͽ� ���ΰ� ������ ������
  167. Rem �����͸��� ����Ű���� �մϴ�.
  168. Rem
  169. Rem ���� ��ġ ���忡 ���� ������ ��ġ ������ �����մϴ�.
  170. Set __OrigMode=Install
  171. ChgUsr /query > Nul:
  172. if Not ErrorLevel 101 Goto Begin
  173. Set __OrigMode=Exec
  174. Change User /Install > Nul:
  175. :Begin
  176. ..\acsr "#ROOTDRIVE#" "%RootDrive%" Template\msproj98.Key msproj98.tm1
  177. ..\acsr "#__SharedTools#" "%__SharedTools%" msproj98.tm1 msproj98.tm2
  178. Del msproj98.tm1 >Nul: 2>&1
  179. ..\acsr "#USERCUSTOMDICFILE#" "%UserCustomDicFileName%" msproj98.tm2 msproj98.Key
  180. Del msproj98.tm2 >Nul: 2>&1
  181. regini msproj98.key > Nul:
  182. Rem ���� ���尡 ���� ���忴����, ���� ������ �ٽ� �����մϴ�.
  183. If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
  184. Set __OrigMode=
  185. Rem #########################################################################
  186. Rem
  187. Rem proj97Usr.Cmd�� ������Ʈ�Ͽ� ���� �����͸��� �ݿ��ϰ� �̸�
  188. Rem UsrLogn2.Cmd ��ũ��Ʈ�� �߰��մϴ�.
  189. Rem
  190. ..\acsr "#USERTEMPLATESPATH#" "%UserTemplatesPath%" ..\Logon\Template\prj98Usr.Cmd prj98Usr.tm1
  191. ..\acsr "#USERCUSTOMDICPATH#" "%UserCustomDicPath%" prj98Usr.tm1 prj98Usr.tm2
  192. Del prj98Usr.tm1 >Nul: 2>&1
  193. ..\acsr "#COMMONTEMPLATESPATH#" "%CommonTemplatesPath%" prj98Usr.tm2 prj98Usr.tm1
  194. Del prj98Usr.tm2 >Nul: 2>&1
  195. ..\acsr "#COMMONCUSTOMDICPATH#" "%CommonCustomDicPath%" prj98Usr.tm1 prj98Usr.tm2
  196. Del prj98Usr.tm1 >Nul: 2>&1
  197. ..\acsr "#CUSTOMDICNAME#" "%CustomDicFile%" prj98Usr.tm2 prj98Usr.tm1
  198. Del prj98Usr.tm2 >Nul: 2>&1
  199. ..\acsr "#APPPATHNAME#" "%AppPathName%" prj98Usr.tm1 prj98Usr.tm2
  200. Del prj98Usr.tm1 >Nul: 2>&1
  201. ..\acsr "#APPWEBPATHNAME#" "%AppWebPathName%" prj98Usr.tm2 ..\Logon\prj98Usr.Cmd
  202. Del prj98Usr.tm2 >Nul: 2>&1
  203. FindStr /I prj98Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  204. If Not ErrorLevel 1 Goto Skip1
  205. Echo Call prj98Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  206. :Skip1
  207. Rem #########################################################################
  208. Echo.
  209. Echo Project 98�� �ùٸ��� �۾��ϱ� ����
  210. Echo ���� �α׿µǾ� �ִ� �����ڰ� �α׿����ϰ� �ٽ� �α׿��� ��
  211. Echo ���� ���α׷��� �����ؾ� �մϴ�.
  212. Echo.
  213. Echo Microsoft Project 98 ���� ������ ���� ���α׷� ���� �Ϸ�
  214. Pause
  215. :done