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.

88 lines
2.8 KiB

  1. Rem #########################################################################
  2. Rem
  3. Rem �� "Microsoft Office Shortcut Bar.lnk" �ļ��� Office ��װ��Ŀ¼
  4. Rem ���Ƶ���ǰ�û��ġ��������˵���
  5. Rem
  6. If Exist "%RootDrive%\Office97" Goto Skip0
  7. If Exist "%USER_STARTUP%\Microsoft Office Shortcut Bar.lnk" Goto Skip0
  8. If Not Exist "#INSTDIR#\Microsoft Office Shortcut Bar.lnk" Goto Skip0
  9. Copy "#INSTDIR#\Microsoft Office Shortcut Bar.lnk" "%USER_STARTUP%\Microsoft Office Shortcut Bar.lnk" >Nul: 2>&1
  10. :Skip0
  11. Rem
  12. Rem ���û�����Ŀ¼��ΪӦ�ó�����������
  13. Rem ����Ŀ¼��
  14. Rem
  15. call TsMkUDir "%RootDrive%\Office97"
  16. call TsMkUDir "%RootDrive%\Office97\Startup"
  17. call TsMkUDir "%RootDrive%\Office97\Templates"
  18. call TsMkuDir "%RootDrive%\Office97\XLStart"
  19. call TsMkUDir "%RootDrive%\%MY_DOCUMENTS%"
  20. Rem
  21. Rem ����Щ�ļ��������û���ģ�帴�Ƶ���ǰ�û�ģ��λ��
  22. Rem
  23. If Not Exist "%UserProfile%\%TEMPLATES%\WINWORD8.DOC" copy "%ALLUSERSPROFILE%\%TEMPLATES%\WINWORD8.DOC" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  24. If Not Exist "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" copy "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  25. If Not Exist "%UserProfile%\%TEMPLATES%\BINDER.OBD" copy "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER.OBD" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
  26. Rem
  27. Rem ��ϵͳ���������Ƶ��û�����Ŀ¼������
  28. Rem �Ѿ����ڡ�
  29. Rem
  30. If Exist "%RootDrive%\Office97\ShortCut Bar" Goto Skip1
  31. If Not Exist "#INSTDIR#\Office\ShortCut Bar" Goto Skip1
  32. Xcopy "#INSTDIR#\Office\ShortCut Bar" "%RootDrive%\Office97\ShortCut Bar" /E /I >Nul: 2>&1
  33. :Skip1
  34. Rem
  35. Rem ���� Forms Ŀ¼�Ա� Outlook ���Խ� Word �����༭��ʹ��
  36. Rem
  37. If Exist "%RootDrive%\Windows\Forms" Goto Skip2
  38. If Not Exist "%SystemRoot%\Forms" Goto Skip2
  39. Xcopy "%SystemRoot%\Forms" "%RootDrive%\Windows\Forms" /e /i >Nul: 2>&1
  40. :Skip2
  41. Rem
  42. Rem �� ARTGALRY.CAG ���Ƶ��û��� Windows Ŀ¼
  43. Rem
  44. If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip3
  45. If Not Exist "%SystemRoot%\ArtGalry.Cag" Goto Skip3
  46. Copy "%SystemRoot%\ArtGalry.Cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
  47. :Skip3
  48. Rem
  49. Rem �� Custom.dic �ļ����Ƶ��û���Ŀ¼
  50. Rem
  51. If Exist "%RootDrive%\Office97\Custom.Dic" Goto Skip4
  52. If Not Exist "#INSTDIR#\Office\Custom.Dic" Goto Skip4
  53. Copy "#INSTDIR#\Office\Custom.Dic" "%RootDrive%\Office97\Custom.Dic" >Nul: 2>&1
  54. :Skip4
  55. Rem
  56. Rem ����ͼ���ļ����û�Ŀ¼
  57. Rem
  58. If Exist "%RootDrive%\Office97\GR8GALRY.GRA" Goto Skip5
  59. If Not Exist "#INSTDIR#\Office\GR8GALRY.GRA" Goto Skip5
  60. Copy "#INSTDIR#\Office\GR8GALRY.GRA" "%RootDrive%\Office97\GR8GALRY.GRA" >Nul: 2>&1
  61. :Skip5
  62. If Exist "%RootDrive%\Office97\XL8GALRY.XLS" Goto Skip6
  63. If Not Exist "#INSTDIR#\Office\XL8GALRY.XLS" Goto Skip6
  64. Copy "#INSTDIR#\Office\XL8GALRY.XLS" "%RootDrive%\Office97\XL8GALRY.XLS" >Nul: 2>&1
  65. :Skip6