able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/termsrv/admtools/appcmpt/jpn/msproj98.cmd

163 lines
5.1 KiB
Batchfile
Raw Normal View History

Add source files
2020-09-26 03:20:57 -05:00
@Echo Off
Rem #########################################################################
Rem
Rem %RootDrive% <20><><EFBFBD>\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>p<EFBFBD>ɐݒ肳<DD92><E882B3><EFBFBD>Ă<EFBFBD><C482>邱<EFBFBD>Ƃ<EFBFBD><C682>m<EFBFBD>F<EFBFBD><46><EFBFBD>܂<EFBFBD><DC82>B
Rem
Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
If "%_CHKROOT%" == "FAIL" Goto Done
Call "%SystemRoot%\Application Compatibility Scripts\SetPaths.Cmd"
If "%_SETPATHS%" == "FAIL" Goto Done
Rem #########################################################################
Rem
Rem <20><><EFBFBD>W<EFBFBD>X<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Project 98 <20><><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>擾<EFBFBD><E693BE><EFBFBD>܂<EFBFBD><DC82>B<EFBFBD><42><EFBFBD>‚<EFBFBD><C282><EFBFBD><EFBFBD>Ȃ<EFBFBD><C882>ꍇ<EFBFBD>́A
Rem <20><><EFBFBD>̃A<CC83>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>̓C<CD83><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>Ȃ<EFBFBD><C882>Ɖ<EFBFBD><C689>肵<EFBFBD>ăG<C483><47><EFBFBD>[<5B><><EFBFBD>b<EFBFBD>Z<EFBFBD>[<5B>W<EFBFBD><57><EFBFBD>\<5C><><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
Rem
..\ACRegL %Temp%\Proj98.Cmd PROJINST "HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot" "OfficeBin" ""
If Not ErrorLevel 1 Goto Cont0
Echo.
Echo <20><><EFBFBD>W<EFBFBD>X<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Project 98 <20>̃C<CC83><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD>ꏊ<EFBFBD><EA8F8A><EFBFBD>擾<EFBFBD>ł<EFBFBD><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>ł<EFBFBD><C582><EFBFBD><EFBFBD>B
Echo Project 98 <20><><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>邩<EFBFBD>ǂ<EFBFBD><C782><EFBFBD><EFBFBD>m<EFBFBD>F<EFBFBD><46><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>A<EFBFBD><41><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD><67>
Echo <20>Ď<EFBFBD><C48E>s<EFBFBD><73><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B
Echo.
Pause
Goto Done
:Cont0
Call %Temp%\Proj98.Cmd
Del %Temp%\Proj98.Cmd >Nul: 2>&1
Rem #########################################################################
Rem
Rem Office 97 <20><><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>ꍇ<EFBFBD>AProject 98 <20>̃C<CC83><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><> <20>X<EFBFBD>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD><67>
Rem <20>e<EFBFBD><65><EFBFBD>v<EFBFBD><76><EFBFBD>[<5B>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>݂̃<DD82><CC83>[<5B>U<EFBFBD>[ <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>Ɉړ<C988><DA93><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B
Rem <20>e<EFBFBD><65><EFBFBD>v<EFBFBD><76><EFBFBD>[<5B>g<EFBFBD><67><EFBFBD>O<EFBFBD><4F><EFBFBD>[<5B>o<EFBFBD><6F><EFBFBD>ȏꏊ<C88F>ɒu<C992><75><EFBFBD>AProj98Usr.cmd <20><><EFBFBD>e<EFBFBD><65><EFBFBD>v<EFBFBD><76><EFBFBD>[<5B>g<EFBFBD><67> & Echo <20>e<EFBFBD><65><EFBFBD>[<5B>U<EFBFBD>[<5B>̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>ɖ߂<C996><DF82>܂<EFBFBD><DC82>B
Rem
If NOT Exist "%RootDrive%\Office97\Template\Microsoft Project" goto skip10
If Exist "%PROJINST%\..\Templates\Microsoft Project" goto skip10
xcopy "%RootDrive%\Office97\Template\Microsoft Project" "%PROJINST%\..\Templates\Microsoft Project" /E /I /K > Nul: 2>&1
:skip10
If NOT Exist "%RootDrive%\Office97\Template\Microsoft Project Web" goto skip11
If Exist "%PROJINST%\..\Templates\Microsoft Project Web" goto skip11
xcopy "%RootDrive%\Office97\Template\Microsoft Project Web" "%PROJINST%\..\Templates\Microsoft Project Web" /E /I /K > Nul: 2>&1
:skip11
Rem #########################################################################
Rem
Rem Global.mpt <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>ǂݎ<C782><DD8E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>p<EFBFBD>ɂ<EFBFBD><C982>܂<EFBFBD><DC82>B
Rem <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Project <20><><EFBFBD>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ŏ<EFBFBD><C58F>̃<EFBFBD><CC83>[<5B>U<EFBFBD>[<5B><> ACL <20><><EFBFBD>ύX<CF8D><58><EFBFBD>܂<EFBFBD><DC82>B
Rem
if Exist "%PROJINST%\Global.mpt" attrib +r "%PROJINST%\Global.mpt"
Rem #########################################################################
Rem
Rem Office 97 <20>ɂ<EFBFBD><C982><EFBFBD><EFBFBD>čX<C48D>V<EFBFBD><56><EFBFBD>ꂽ<EFBFBD>V<EFBFBD>X<EFBFBD>e<EFBFBD><65> DLL <20>ւ̓ǂݎ<C782><DD8E><EFBFBD><EFBFBD>A<EFBFBD>N<EFBFBD>Z<EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD>S<EFBFBD><53><EFBFBD><EFBFBD>
Rem <20>^<5E><><EFBFBD>܂<EFBFBD><DC82>B
Rem
If Exist %SystemRoot%\System32\OleAut32.Dll cacls %SystemRoot%\System32\OleAut32.Dll /E /T /G "Authenticated Users":R > NUL: 2>&1
Rem #########################################################################
Rem
Rem MsForms.Twd <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>쐬<EFBFBD><EC90AC><EFBFBD>܂<EFBFBD><DC82>B<EFBFBD><42><EFBFBD>̃t<CC83>@<40>C<EFBFBD><43><EFBFBD><EFBFBD>
Rem Powerpoint <20><> Excel <20>̃A<CC83>h<EFBFBD>C<EFBFBD><43> ([<5B>t<EFBFBD>@<40>C<EFBFBD><43>]/[<5B><><EFBFBD>O<EFBFBD><4F><EFBFBD>t<EFBFBD><74><EFBFBD>ĕۑ<C495>] <20><>
Rem HTML<4D>t<EFBFBD>H<EFBFBD>[<5B>}<7D>b<EFBFBD>g<EFBFBD>Ȃ<EFBFBD>) <20><><EFBFBD>K<EFBFBD>v<EFBFBD>Ƃ<EFBFBD><C682><EFBFBD><EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>ł<EFBFBD><C582>B <20>ǂ<EFBFBD><C782>炩<EFBFBD>̃v<CC83><76><EFBFBD>O<EFBFBD><4F><EFBFBD><EFBFBD>
Rem <20><><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƁA<C681>Y<EFBFBD><59><EFBFBD>̃t<CC83>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>K<EFBFBD>v<EFBFBD>ȃf<C883>[<5B>^<5E><><EFBFBD><EFBFBD><EFBFBD>ƒt<C283>@<40>C<EFBFBD><43><EFBFBD>Œu<C592><75><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
Rem
If Exist %systemroot%\system32\MsForms.Twd Goto Cont2
Copy Nul: %systemroot%\system32\MsForms.Twd >Nul:
Cacls %systemroot%\system32\MsForms.Twd /E /P "Authenticated Users":F > Nul: 2>&1
:Cont2
Rem #########################################################################
Rem
Rem <20><><EFBFBD>ׂẴ<C482><CC83>[<5B>U<EFBFBD>[<5B>p<EFBFBD>̃X<CC83>^<5E>[<5B>g<EFBFBD>A<EFBFBD>b<EFBFBD>v <20><><EFBFBD>j<EFBFBD><6A><EFBFBD>[<5B><><EFBFBD><EFBFBD> Find Fast <20><><EFBFBD>폜<EFBFBD><ED8F9C><EFBFBD>܂<EFBFBD><DC82>B
Rem Find Fast <20>̓<EFBFBD><CD83>\<5C>[<5B>X<EFBFBD><58><EFBFBD>W<EFBFBD><57><EFBFBD>I<EFBFBD>Ɏg<C98E>p<EFBFBD><70><EFBFBD>A<EFBFBD>V<EFBFBD>X<EFBFBD>e<EFBFBD><65> <20>p<EFBFBD>t<EFBFBD>H<EFBFBD>[<5B>}<7D><><EFBFBD>X<EFBFBD><58>
Rem <20>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD>y<EFBFBD>ڂ<EFBFBD><DA82>܂<EFBFBD><DC82>B
Rem
If Exist "%COMMON_STARTUP%\Microsoft Find Fast.lnk" Del "%COMMON_STARTUP%\Microsoft Find Fast.lnk"
Rem #########################################################################
Rem
Rem <20><><EFBFBD>W<EFBFBD>X<EFBFBD>g<EFBFBD><67> <20>L<EFBFBD>[<5B><><EFBFBD>ύX<CF8D><58><EFBFBD>āA<C481>p<EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD>[<5B>U<EFBFBD>[<5B>ŗL<C597>̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67>
Rem <20><><EFBFBD>w<EFBFBD><77><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>悤<EFBFBD>ɂ<EFBFBD><C982>܂<EFBFBD><DC82>B
Rem
Rem <20><><EFBFBD>݁A<DD81>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><> <20><><EFBFBD>[<5B>h<EFBFBD>łȂ<C582><C882>ꍇ<EFBFBD>A<EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><> <20><><EFBFBD>[<5B>h<EFBFBD>ɕύX<CF8D><58><EFBFBD>܂<EFBFBD><DC82>B
Set __OrigMode=Install
ChgUsr /query > Nul:
if Not ErrorLevel 101 Goto Begin
Set __OrigMode=Exec
Change User /Install > Nul:
:Begin
Set __SharedTools=Shared Tools
If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
Set __SharedTools=Shared Tools (x86)
:acsrCont1
..\acsr "#ROOTDRIVE#" "%RootDrive%" Template\msproj98.Key msproj98.tmp
..\acsr "#__SharedTools#" "%__SharedTools%" msproj98.tmp msproj98.Key
Del msproj98.tmp >Nul: 2>&1
regini msproj98.key > Nul:
Rem <20><><EFBFBD>̃<EFBFBD><CC83>[<5B>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>[<5B>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ꍇ<EFBFBD>A<EFBFBD><41><EFBFBD>s<EFBFBD><73><EFBFBD>[<5B>h<EFBFBD>ɖ߂<C996><DF82>܂<EFBFBD><DC82>B
If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
Set __OrigMode=
Rem #########################################################################
Rem
Rem <20><><EFBFBD>ۂ̃C<CC83><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><> <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>𔽉f<F094BD89><66><EFBFBD><EFBFBD><EFBFBD>邽<EFBFBD><E982BD> proj97Usr.Cmd <20><><EFBFBD>X<EFBFBD>V<EFBFBD><56><EFBFBD>āA
Rem UsrLogn2.Cmd <20>X<EFBFBD>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>ɒlj<C992><C789><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
Rem
..\acsr "#INSTDIR#" "%PROJINST%" ..\Logon\Template\prj98Usr.Cmd ..\Logon\prj98Usr.Cmd
FindStr /I prj98Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
If Not ErrorLevel 1 Goto Skip1
Echo Call prj98Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
:Skip1
Rem #########################################################################
Echo.
Echo Project 98 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɍ쓮<C98D><EC93AE><EFBFBD>邽<EFBFBD>߂ɂ́A<CD81><41><EFBFBD>݃<EFBFBD><DD83>O<EFBFBD>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD>
Echo <20><><EFBFBD>[<5B>U<EFBFBD>[<5B>̓A<CD83>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD>O<EFBFBD>ɁA<C981><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>񃍃O<F1838D83>I<EFBFBD>t<EFBFBD><74><EFBFBD><EFBFBD>
Echo <20><><EFBFBD><EFBFBD><EFBFBD>ēx<C493><78><EFBFBD>O<EFBFBD>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>K<EFBFBD>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
Echo.
Echo Microsoft Project 98 <20>̃}<7D><><EFBFBD>`<60><><EFBFBD>[<5B>U<EFBFBD>[ <20>A<EFBFBD>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>‹<EFBFBD><C28B>ݒ肪<DD92><E882AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B
Pause
:done
Reference in a new issue Copy permalink