windows-nt/Source/XPSP1/NT/termsrv/admtools/appcmpt/jpn/prj95usr.cmd

@echo off


Rem #########################################################################

Rem
Rem <20><><EFBFBD>[<5B>U<EFBFBD>[<5B>̃z<CC83>[<5B><> <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>ɃA<C983>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>ŗL<C597>̃f<CC83>[<5B>^
Rem <20>̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>쐬<EFBFBD><EC90AC><EFBFBD>܂<EFBFBD><DC82>B
Rem

call TsMkUDir "%RootDrive%\Office95"

Rem #########################################################################

Rem <20><><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD><67> Alpha <20><><EFBFBD>Ŏ<EFBFBD><C58E>s<EFBFBD><73><EFBFBD>ł<EFBFBD><C582>邩<EFBFBD>m<EFBFBD>F<EFBFBD><46><EFBFBD>āAAlpha <20><><EFBFBD>Ŏ<EFBFBD><C58E>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>ꍇ<EFBFBD>A<EFBFBD>K<EFBFBD>؂ȋ<D882><C88B>L<EFBFBD>c<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD>ݒ肵<DD92>܂<EFBFBD><DC82>B
rem 
rem
Set __SharedTools=Shared Tools
If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
Set __SharedTools=Shared Tools (x86)
:acsrCont1


Rem #########################################################################

Rem
Rem <20><><EFBFBD>[<5B>U<EFBFBD>[<5B>̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD> Custom.dic <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>쐬<EFBFBD><EC90AC><EFBFBD>܂<EFBFBD><DC82>B
Rem

If Not Exist "%RootDrive%\Office95\Custom.Dic" Copy Nul: "%RootDrive%\Office95\Custom.Dic" >Nul: 2>&1

Rem #########################################################################

REM
REM <20><><EFBFBD><EFBFBD><EFBFBD>̖<EFBFBD><CC96>O<EFBFBD>ƃp<C683>X<EFBFBD><58><EFBFBD>擾<EFBFBD><E693BE><EFBFBD>܂<EFBFBD><DC82>B
REM 


..\ACRegL "%Temp%\Proj95_1.Cmd" DictPath "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "Dictionary" "StripChar\1"
If ErrorLevel 1 Goto Done
Call %Temp%\Proj95_1.Cmd 
Del %Temp%\Proj95_1.Cmd >Nul: 2>&1

..\ACRegL "%Temp%\Proj95_3.Cmd" DictName "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "Dictionary" "StripPath"
If ErrorLevel 1 Goto Done
Call %Temp%\Proj95_3.Cmd 
Del %Temp%\Proj95_3.Cmd >Nul: 2>&1

Rem #########################################################################

REM
REM <20>p<EFBFBD>X<EFBFBD>̃<EFBFBD><CC83>W<EFBFBD>X<EFBFBD>g<EFBFBD><67><EFBFBD>ݒ肪<DD92>ύX<CF8D><58><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>ꍇ<EFBFBD>A<EFBFBD><41><EFBFBD>Z<EFBFBD>b<EFBFBD>g<EFBFBD><67><EFBFBD>܂<EFBFBD><DC82>B
REM <20><><EFBFBD><EFBFBD><EFBFBD>́A<CD81>ʂ<EFBFBD> Microsoft Office <20>A<EFBFBD>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>ꍇ<EFBFBD>ɔ<EFBFBD><C994><EFBFBD><EFBFBD><EFBFBD><EFBFBD>邱<EFBFBD>Ƃ<EFBFBD><C682><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
REM

If "%DictPath%"=="%RootDrive%\Office95" Goto GetDictionary

..\ACRegL "%Temp%\Proj95_2.Cmd" Dictionary "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "Dictionary" ""
If ErrorLevel 1 Goto Done
Call %Temp%\Proj95_2.Cmd 
Del %Temp%\Proj95_2.Cmd >Nul: 2>&1

REM 2 <20>l<EFBFBD>̃<EFBFBD><CC83>[<5B>U<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD>̃R<CC83>[<5B>h<EFBFBD><68><EFBFBD>ʉ߂<CA89><DF82><EFBFBD><EFBFBD>̂<EFBFBD><CC82>h<EFBFBD><68><EFBFBD>܂<EFBFBD><DC82>B
REM <20><><EFBFBD><EFBFBD><EFBFBD>ɂ<EFBFBD><C982>胆<EFBFBD>[<5B>U<EFBFBD>[ A <20><> DictPath <20><><EFBFBD>擾<EFBFBD><E693BE><EFBFBD>ɁA<C981><41><EFBFBD>[<5B>U<EFBFBD>[ B <20><>
REM DictPath <20>ύX<CF8D><58><EFBFBD><EFBFBD><EFBFBD>̂<EFBFBD><CC82>h<EFBFBD><68><EFBFBD>܂<EFBFBD><DC82>B
..\ACRegL "%Temp%\Proj95_7.Cmd" OrigDictPath "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "Dictionary" "StripChar\1"
If ErrorLevel 1 Goto Done
Call %Temp%\Proj95_7.Cmd 
Del %Temp%\Proj95_7.Cmd >Nul: 2>&1
if "%OrigDictPath%"=="%RootDrive%\Office95" Goto GetDictionary

..\acsr "#DICTNAME#" "%DictName%" Template\prj95Usr.key %Temp%\Proj95_4.tmp
..\acsr "#ROOTDRIVE#" "%RootDrive%" %Temp%\Proj95_4.tmp  %Temp%\Proj95_5.tmp
..\acsr "#DICTIONARY#" "%Dictionary%" %Temp%\Proj95_5.tmp %Temp%\Proj95_6.tmp
..\acsr "#__SharedTools#" "%__SharedTools%" %Temp%\Proj95_6.tmp %Temp%\Prj95Usr.Key

Rem <20><><EFBFBD>W<EFBFBD>X<EFBFBD>g<EFBFBD><67> <20>L<EFBFBD>[<5B><><EFBFBD>ύX<CF8D><58><EFBFBD>āA<C481><41><EFBFBD><EFBFBD><EFBFBD>̃p<CC83>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD>[<5B>U<EFBFBD>[<5B>ŗL<C597>̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>w<EFBFBD><77><EFBFBD>悤<EFBFBD>ɂ<EFBFBD><C982>܂<EFBFBD><DC82>B
regini %Temp%\prj95Usr.key > Nul:

Del %Temp%\Proj95_4.tmp >Nul: 2>&1
Del %Temp%\Proj95_5.tmp >Nul: 2>&1
Del %Temp%\Proj95_6.tmp >Nul: 2>&1
Del %Temp%\prj95Usr.key >Nul: 2>&1

goto CopyDictionary


Rem #########################################################################

REM
REM <20><><EFBFBD><EFBFBD><EFBFBD>̃p<CC83>X<EFBFBD><58><EFBFBD>ύX<CF8D><58><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>Ȃ<EFBFBD><C882>ꍇ<EFBFBD>A<EFBFBD><41><EFBFBD>W<EFBFBD>X<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>Q<EFBFBD>Ƃ<EFBFBD><C682>āA<C481><41><EFBFBD><EFBFBD>
REM <20><><EFBFBD>O<EFBFBD>ƃp<C683>X<EFBFBD><58><EFBFBD>g<EFBFBD>p<EFBFBD><70><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B
REM 

:GetDictionary

..\ACRegL "%Temp%\Proj95_6.Cmd" Dictionary "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "OrigDictionary" ""
If ErrorLevel 1 Goto SpellError

Call %Temp%\Proj95_6.Cmd 
Del %Temp%\Proj95_6.Cmd >Nul: 2>&1

Rem #########################################################################

REM
REM <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B>U<EFBFBD>[ <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>ɃR<C983>s<EFBFBD>[<5B><><EFBFBD>܂<EFBFBD><DC82>B
REM 

:CopyDictionary

If Exist "%RootDrive%\Office95\%DictName%" goto Cont1
   If Not Exist "%Dictionary%"  goto Cont1
      Copy "%Dictionary%"  "%RootDrive%\Office95\%DictName%" >Nul: 2>&1

:Cont1


:Done