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.

201 lines
7.5 KiB

  1. @Echo Off
  2. Rem #########################################################################
  3. Rem
  4. Rem CMD �g���@�\���L���ɂȂ��Ă��邩�m�F���܂��B
  5. Rem
  6. if "A%cmdextversion%A" == "AA" (
  7. call cmd /e:on /c netcom40.cmd
  8. ) else (
  9. goto ExtOK
  10. )
  11. goto Done
  12. :ExtOK
  13. Rem #########################################################################
  14. Rem
  15. Rem %RootDrive% ���\�������Ă��̃X�N���v�g�p�ɐݒ肳���Ă��邱�Ƃ��m�F���܂��B
  16. Rem
  17. Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
  18. If "%_CHKROOT%" == "FAIL" Goto Done
  19. Call "%SystemRoot%\Application Compatibility Scripts\SetPaths.Cmd"
  20. If "%_SETPATHS%" == "FAIL" Goto Done
  21. Rem #########################################################################
  22. Rem
  23. Rem NetScape �̃o�[�W�������擾���܂� (4.5x �� 4.0x �Ƃ͈قȂ����@�ōs�����܂�)�B
  24. Rem
  25. ..\ACRegL "%Temp%\NS4VER.Cmd" NS4VER "HKLM\Software\Netscape\Netscape Navigator" "CurrentVersion" "STRIPCHAR(1"
  26. If Not ErrorLevel 1 Goto Cont0
  27. Echo.
  28. Echo ���W�X�g������ Netscape Communicator 4 �̃C���X�g�[���ꏊ���擾�ł��܂����B
  29. Echo Communicator ���C���X�g�[�������Ă��邩�ǂ����m�F���Ă����A���̃X�N���v�g��
  30. Echo ���s�����������B
  31. Echo.
  32. Pause
  33. Goto Done
  34. :Cont0
  35. Call "%Temp%\NS4VER.Cmd"
  36. Del "%Temp%\NS4VER.Cmd" >Nul: 2>&1
  37. if /i "%NS4VER%" LSS "4.5 " goto NS40x
  38. Rem #########################################################################
  39. Rem Netscape 4.5x
  40. Rem
  41. Rem ���W�X�g������ Netscape Communicator 4.5 ���C���X�g�[�������Ă����f�B���N�g�����擾���܂��B���‚����Ȃ��ꍇ�́A
  42. Rem ���̃A�v���P�[�V�����̓C���X�g�[�������Ă��Ȃ��Ɖ��肵�ăG���[���b�Z�[�W���\�����܂��B
  43. Rem �G���[ ���b�Z�[�W���\�����܂��B
  44. Rem
  45. ..\ACRegL "%Temp%\NS45.Cmd" NS40INST "HKCU\Software\Netscape\Netscape Navigator\Main" "Install Directory" "Stripchar\1"
  46. If Not ErrorLevel 1 Goto Cont1
  47. Echo.
  48. Echo ���W�X�g������ Netscape Communicator 4.5 �̃C���X�g�[���ꏊ���擾�ł��܂����B
  49. Echo Communicator ���C���X�g�[�������Ă��邩�ǂ����m�F���Ă����A���̃X�N���v�g��
  50. Echo ���s�����������B
  51. Echo.
  52. Pause
  53. Goto Done
  54. :Cont1
  55. Call "%Temp%\NS45.Cmd"
  56. Del "%Temp%\NS45.Cmd" >Nul: 2>&1
  57. Rem #########################################################################
  58. Rem
  59. Rem ������ NetScape �̃��[�U�[ �f�B���N�g���𔽉f�����邽�� Com40Usr.Cmd ���X�V���āA
  60. Rem UsrLogn2.Cmd �X�N���v�g�ɒlj����܂��B
  61. Rem
  62. ..\acsr "#NSUSERDIR#" "%ProgramFiles%\Netscape\Users" ..\Logon\Template\Com40Usr.Cmd ..\Logon\Com40Usr.tmp
  63. ..\acsr "#NS40INST#" "%NS40INST%" ..\Logon\Com40Usr.tmp ..\Logon\Com40Usr.tm2
  64. ..\acsr "#NS4VER#" "4.5x" ..\Logon\Com40Usr.tm2 ..\Logon\Com40Usr.Cmd
  65. Rem #########################################################################
  66. Rem
  67. Rem "�N�C�b�N�N��" �̃A�C�R���� Netscape �̃C���X�g�[�� �f�B���N�g���ɃR�s�[���āA
  68. Rem �A�C�R�������ꂼ���̃��[�U�[ �v���t�@�C���̃f�B���N�g���ɃR�s�[�ł����悤�ɂ��܂��B
  69. Rem
  70. If Exist "%UserProfile%\%App_Data%\Microsoft\Internet Explorer\Quick Launch\Netscape Composer.lnk" copy "%UserProfile%\%App_Data%\Microsoft\Internet Explorer\Quick Launch\Netscape Composer.lnk" "%NS40INST%"
  71. If Exist "%UserProfile%\%App_Data%\Microsoft\Internet Explorer\Quick Launch\Netscape Messenger.lnk" copy "%UserProfile%\%App_Data%\Microsoft\Internet Explorer\Quick Launch\Netscape Messenger.lnk" "%NS40INST%"
  72. If Exist "%UserProfile%\%App_Data%\Microsoft\Internet Explorer\Quick Launch\Netscape Navigator.lnk" copy "%UserProfile%\%App_Data%\Microsoft\Internet Explorer\Quick Launch\Netscape Navigator.lnk" "%NS40INST%"
  73. goto DoUsrLogn
  74. :NS40x
  75. Rem #########################################################################
  76. Rem Netscape 4.0x
  77. Rem
  78. Rem ���W�X�g������ Netscape Communicator 4 ���C���X�g�[�������Ă����f�B���N�g�����擾���܂��B���‚����Ȃ��ꍇ�́A
  79. Rem ���̃A�v���P�[�V�����̓C���X�g�[�������Ă��Ȃ��Ɖ��肵�ăG���[���b�Z�[�W���\�����܂��B
  80. Rem �G���[ ���b�Z�[�W���\�����܂��B
  81. Rem
  82. ..\ACRegL "%Temp%\NS40.Cmd" NS40INST "HKCU\Software\Netscape\Netscape Navigator\Main" "Install Directory" ""
  83. If Not ErrorLevel 1 Goto Cont2
  84. Echo.
  85. Echo ���W�X�g������ Netscape Communicator 4 �̃C���X�g�[���ꏊ���擾�ł��܂����B
  86. Echo Communicator ���C���X�g�[�������Ă��邩�ǂ����m�F���Ă����A���̃X�N���v�g��
  87. Echo ���s�����������B
  88. Echo.
  89. Pause
  90. Goto Done
  91. :Cont2
  92. Call "%Temp%\NS40.Cmd"
  93. Del "%Temp%\NS40.Cmd" >Nul: 2>&1
  94. Rem #########################################################################
  95. Rem
  96. Rem �����̃v���t�@�C�����Ǘ��҂̃z�[�� �f�B���N�g�����珊���̏ꏊ�փR�s�[��
  97. Rem �܂��B���̃v���t�@�C���́A���O�I�����Ɋe���[�U�[�̃f�B���N�g���փR�s�[
  98. Rem �����܂��B�S�ʗp�̊����̃v���t�@�C�������ɑ��݂����ꍇ�́A�㏑��������
  99. Rem �����B�Ǘ��҂����ł��̃X�N���v�g�����s���āA�Ǘ��Ҍl�̏������S�ʗp��
  100. Rem �����̃v���t�@�C���Ɉړ����邱�Ƃ��ł��܂��B
  101. Rem
  102. If Exist %RootDrive%\NS40 Goto Cont3
  103. Echo.
  104. Echo %RootDrive%\NS40 �Ɋ����̃v���t�@�C�������‚����܂����BUser Profile Manager
  105. Echo ���g���āA"Default" �Ƃ������O�̒P���̃v���t�@�C�����쐬���Ă��������B�v��
  106. Echo �t�@�C���̃p�X�̓��͂����߂��ꂽ�ꍇ�A���L�̃p�X���g�p���Ă��������B���O��
  107. Echo �d�q���[�����̓��͂͂��ׂċ󔒂ɂ��Ă��������B���Ƀv���t�@�C�������݂�����
  108. Echo ���͂��ׂč폜���Ă��������B�������̎菇�������������ŁA���̃X�N���v�g��
  109. Echo ���s�����������B
  110. Echo.
  111. Pause
  112. Goto Done
  113. :Cont3
  114. If Exist "%NS40INST%\DfltProf" Goto Cont4
  115. Xcopy "%RootDrive%\NS40" "%NS40INST%\DfltProf" /E /I /K >NUL: 2>&1
  116. :Cont4
  117. Rem #########################################################################
  118. Rem
  119. Rem �X�^�[�g ���j���[�ɂ��� User Profile Manager �̃V���[�g�J�b�g�������ʃ��[�U�[
  120. Rem �̃A�N�Z�X�������菜���܂��B�����ň��ʃ��[�U�[�͐V�������[�U�[ �v���t�@�C�����lj�����
  121. Rem ���Ƃ��ł��Ȃ��Ȃ��܂����A�Ǘ��҂� User Profile Manager �����s�ł��܂��B
  122. Rem
  123. If Not Exist "%COMMON_PROGRAMS%\Netscape Communicator\Utilities\User Profile Manager.Lnk" Goto Cont5
  124. Cacls "%COMMON_PROGRAMS%\Netscape Communicator\Utilities\User Profile Manager.Lnk" /E /R "Authenticated Users" >Nul: 2>&1
  125. Cacls "%COMMON_PROGRAMS%\Netscape Communicator\Utilities\User Profile Manager.Lnk" /E /R "Users" >Nul: 2>&1
  126. Cacls "%COMMON_PROGRAMS%\Netscape Communicator\Utilities\User Profile Manager.Lnk" /E /R "Everyone" >Nul: 2>&1
  127. :Cont5
  128. If Not Exist "%COMMON_PROGRAMS%\Netscape Communicator Professional Edition\Utilities\User Profile Manager.Lnk" Goto Cont6
  129. Cacls "%COMMON_PROGRAMS%\Netscape Communicator Professional Edition\Utilities\User Profile Manager.Lnk" /E /R "Authenticated Users" >Nul: 2>&1
  130. Cacls "%COMMON_PROGRAMS%\Netscape Communicator Professional Edition\Utilities\User Profile Manager.Lnk" /E /R "Users" >Nul: 2>&1
  131. Cacls "%COMMON_PROGRAMS%\Netscape Communicator Professional Edition\Utilities\User Profile Manager.Lnk" /E /R "Everyone" >Nul: 2>&1
  132. :Cont6
  133. Rem #########################################################################
  134. Rem
  135. Rem ���ۂ̃C���X�g�[�� �f�B���N�g���𔽉f�����邽�� Com40Usr.Cmd ���X�V���āA
  136. Rem UsrLogn2.Cmd �X�N���v�g�ɒlj����܂��B
  137. Rem
  138. ..\acsr "#PROFDIR#" "%NS40INST%\DfltProf" ..\Logon\Template\Com40Usr.Cmd ..\Logon\Com40Usr.tmp
  139. ..\acsr "#NS4VER#" "4.0x" ..\Logon\Com40Usr.tmp ..\Logon\Com40Usr.Cmd
  140. :DoUsrLogn
  141. del ..\Logon\Com40Usr.tmp >Nul: 2>&1
  142. del ..\Logon\Com40Usr.tm2 >Nul: 2>&1
  143. FindStr /I Com40Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
  144. If Not ErrorLevel 1 Goto Skip1
  145. Echo Call Com40Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
  146. :Skip1
  147. Echo.
  148. Echo Netscape Communicator �������ɍ쓮���邽�߂ɂ́A���݃��O�I�����Ă���
  149. Echo ���[�U�[�̓A�v���P�[�V���������s�����O�ɁA�������񃍃O�I�t����
  150. Echo �����ēx���O�I�������K�v�������܂��B
  151. Echo.
  152. Echo Netscape Communicator 4 �̃}���`���[�U�[ �A�v���P�[�V�����‹��ݒ肪 & Echo �������܂����B
  153. Pause
  154. :done