Source code of Windows XP (NT5)
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.

134 lines
4.0 KiB

  1. @Echo Off
  2. Cls
  3. Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
  4. If "%_CHKROOT%" == "FAIL" Goto Done
  5. Echo.
  6. Echo �����������ű�֮ǰ������ԱӦ�ý� Access ����Ŀ¼
  7. Echo �ij��û��� Office ר��Ŀ¼��
  8. Echo.
  9. Echo һ�����������������밴������������
  10. Echo.
  11. Echo ���򣬹���ԱӦ��ִ�����в���s:
  12. Echo ���� MS Access ���ӡ��鿴���˵�ѡ����ѡ�
  13. Echo ����Ĭ�����ݿ�Ŀ¼���ij� "%RootDrive%\OFFICE43"
  14. Echo �˳� MS Access
  15. Echo.
  16. Echo ע��: ��������Ҫ�����µ����ݿ����ܿ������鿴���˵���
  17. Echo.
  18. Echo ������Щ���������밴����������...
  19. Pause > NUL:
  20. Echo.
  21. Echo ������ MS Office 4.3 ��װ����Ŀ¼���� "%SystemDrive%\MSOFFICE"��
  22. Echo ����Ҫ���� Ofc43ins.cmd��
  23. Echo.
  24. Echo �밴����������ʼ���� Ofc43ins.cmd ...
  25. Echo.
  26. Pause > NUL:
  27. Notepad Ofc43ins.cmd
  28. Pause
  29. Call ofc43ins.cmd
  30. ..\acsr "#OFC43INST#" "%OFC43INST%" ..\Logon\Template\ofc43usr.cmd ..\Logon\ofc43usr.cmd
  31. ..\acsr "#SYSTEMROOT#" "%SystemRoot%" ..\Logon\Template\ofc43usr.key ..\Logon\Template\ofc43usr.bak
  32. ..\acsr "#OFC43INST#" "%OFC43INST%" ..\Logon\Template\ofc43usr.bak ..\Logon\ofc43usr.key
  33. Del /F /Q ..\Logon\Template\ofc43usr.bak
  34. Rem
  35. Rem ע��: �����ű��е� CACLS ����ֻ�� NTFS
  36. Rem ��ʽ���Ĵ��̷�������Ч��
  37. Rem
  38. Rem ����Ŀǰ���ڰ�װģʽ�У����ijɰ�װģʽ��
  39. Set __OrigMode=Install
  40. ChgUsr /query > Nul:
  41. if Not ErrorLevel 101 Goto Begin
  42. Set __OrigMode=Exec
  43. Change User /Install > Nul:
  44. :Begin
  45. regini Office43.key > Nul:
  46. Rem ����ԭʼģʽ��ִ�У����Ļ�ִ��ģʽ��
  47. If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
  48. Set __OrigMode=
  49. Rem
  50. Rem ���� Office 4.3 �� INI �ļ�
  51. Rem
  52. Rem �� Office ���������� Excel ʱ���� msoffice.ini ��
  53. Rem Ϊ�����ù���Ŀ¼��Office �������ı�׼���ý� Excel
  54. Rem ���ڵڶ�λ���� Word ���档���� msoffice.ini �в����ڣ�
  55. Rem ���� %SystemRoot% �´���
  56. ..\Aciniupd /e "Msoffice.ini" "ToolbarOrder" "MSApp1" "1,1,"
  57. ..\Aciniupd /e "Msoffice.ini" "ToolbarOrder" "MSApp2" "2,1,,%RootDrive%\office43"
  58. ..\Aciniupd /e "Word6.ini" "Microsoft Word" USER-DOT-PATH "%RootDrive%\OFFICE43\WINWORD"
  59. ..\Aciniupd /e "Word6.ini" "Microsoft Word" WORKGROUP-DOT-PATH "%OFC43INST%\WINWORD\TEMPLATE"
  60. ..\Aciniupd /e "Word6.ini" "Microsoft Word" INI-PATH "%RootDrive%\OFFICE43\WINWORD"
  61. ..\Aciniupd /e "Word6.ini" "Microsoft Word" DOC-PATH "%RootDrive%\OFFICE43"
  62. ..\Aciniupd /e "Word6.ini" "Microsoft Word" AUTOSAVE-PATH "%RootDrive%\OFFICE43"
  63. ..\Aciniupd /e "Excel5.ini" "Microsoft Excel" DefaultPath "%RootDrive%\OFFICE43"
  64. ..\Aciniupd /e "Excel5.ini" "Spell Checker" "Custom Dict 1" "%RootDrive%\OFFICE43\Custom.dic"
  65. ..\Aciniupd /k "Msacc20.ini" Libraries "WZTABLE.MDA" "%RootDrive%\OFFICE43\ACCESS\WZTABLE.MDA"
  66. ..\Aciniupd /k "Msacc20.ini" Libraries "WZLIB.MDA" "%RootDrive%\OFFICE43\ACCESS\WZLIB.MDA"
  67. ..\Aciniupd /k "Msacc20.ini" Libraries "WZBLDR.MDA" "%RootDrive%\OFFICE43\ACCESS\WZBLDR.MDA"
  68. ..\Aciniupd /e "Msacc20.ini" Options "SystemDB" "%RootDrive%\OFFICE43\ACCESS\System.MDA"
  69. Rem
  70. Rem ���� WIN.INI
  71. Rem
  72. ..\Aciniupd /e "Win.ini" "MS Proofing Tools" "Custom Dict 1" "%RootDrive%\OFFICE43\Custom.dic"
  73. Rem
  74. Rem ���� Artgalry �ļ��е�Ȩ��
  75. Rem
  76. cacls "%SystemRoot%\Msapps\Artgalry" /E /G "Terminal Server User":F > NUL: 2>&1
  77. Rem
  78. Rem ���� MSQuery �ļ��е�Ȩ��
  79. Rem
  80. cacls "%SystemRoot%\Msapps\MSQUERY" /E /G "Terminal Server User":C > NUL: 2>&1
  81. Rem
  82. Rem ��Ϊ����Ա�� Msacc20.ini �Ǿɵģ����临�Ƶ�����Ա�� Windows Ŀ¼��
  83. Rem
  84. Copy "%SystemRoot%\Msacc20.ini" "%UserProfile%\Windows\" > NUL: 2>&1
  85. Rem ����һ��α�ļ����Ա㰲װ�����޷�����ע�����
  86. Copy NUL: "%UserProfile%\Windows\Ofc43usr.dmy" > NUL: 2>&1
  87. attrib +h "%UserProfile%\Windows\Ofc43usr.dmy" > NUL: 2>&1
  88. FindStr /I Ofc43Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  89. If Not ErrorLevel 1 Goto cont2
  90. Echo Call Ofc43Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  91. :cont2
  92. Echo.
  93. Echo Ҫʹ�Ķ���Ч������ԱӦ����ע���������µ�¼��
  94. Echo ��¼�󣬹���Ա��Ӧ��ִ�����в�����
  95. Echo ��ʼ�� ClipArt Gallery:
  96. Echo ���� Word ��ѡ�񡰲������󡱡�
  97. Echo ѡ�� Microsoft ClipArt Gallery��
  98. Echo ����ȷ������������ʾ�ļ�������
  99. Echo �˳� ClipArt Gallery �� Word.
  100. Echo.
  101. Echo Microsoft Office 4.3 ���û�Ӧ�ó��������ѽ�����
  102. Echo.
  103. Pause
  104. :Done