windows-nt/Source/XPSP1/NT/termsrv/admtools/appcmpt/cht/coffice7.cmd

@Echo Off

Rem
Rem  <20>`<60>N: <20>b<EFBFBD>o<EFBFBD>ӫ<EFBFBD><D3AB>O<EFBFBD>ɤ<EFBFBD><C9A4><EFBFBD> CACLS <20>R<EFBFBD>O<EFBFBD>u<EFBFBD><75><EFBFBD>b
Rem         NTFS <20>榡<EFBFBD><E6A6A1><EFBFBD>ϺФ<CFBA><D0A4>Τ<EFBFBD><CEA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>C
Rem

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

Rem
Rem  <20>q<EFBFBD>ϥΪ̳]<5D>w<EFBFBD>ɤ<EFBFBD><C9A4>R<EFBFBD><52> Corel Office 7 <20>ؿ<EFBFBD><D8BF>C
Rem  <20><><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>j<EFBFBD><6A><EFBFBD>ϥΪ̦^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҧ<EFBFBD><D2A6>H<EFBFBD>O<EFBFBD>Ҹ<EFBFBD><D2B8>Ƨ<EFBFBD>
Rem  <20><><EFBFBD><EFBFBD><EFBFBD>ƻs<C6BB><73> [All Users] <20><><EFBFBD><EFBFBD><EFBFBD>]<5D>w<EFBFBD>ɡC
Rem

Rem <20>p<EFBFBD>G<EFBFBD>ثe<D8AB><65><EFBFBD>O<EFBFBD>b<EFBFBD><62><EFBFBD><EFBFBD><EFBFBD>Ҧ<EFBFBD><D2A6>A<EFBFBD><41><EFBFBD>ܧ<EFBFBD><DCA7><EFBFBD><EFBFBD>w<EFBFBD>˼Ҧ<CBBC><D2A6>C

ChgUsr /query > Nul:
if ErrorLevel 101 Goto Begin1
Set __OrigMode=Install
Change User /Execute > Nul:
:Begin1


Rem <20>p<EFBFBD>G<EFBFBD>ϥέ<CFA5><CEAD>l<EFBFBD>Ҧ<EFBFBD><D2A6>A<EFBFBD><41><EFBFBD>ܧ<EFBFBD><DCA7><EFBFBD><EFBFBD>w<EFBFBD>˼Ҧ<CBBC><D2A6>C
If "%__OrigMode%" == "Install" Change User /Install > Nul:
Set __OrigMode=


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

Rem
Rem <20>ˬd %RootDrive% <20>O<EFBFBD>_<EFBFBD>w<EFBFBD>]<5D>w<EFBFBD>A<EFBFBD>ñN<C3B1><4E><EFBFBD>]<5D>w<EFBFBD><77><EFBFBD><EFBFBD><EFBFBD>O<EFBFBD>ɡC
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 #########################################################################

Rmdir "%USER_START_MENU%\Corel Office 7" /Q >Nul: 2>&1


Rem
Rem  Instruct user to modify key file.
Rem


if "%RootDrive%"=="w:" goto PostDriveChange
if "%RootDrive%"=="W:" goto PostDriveChange

Echo   <20>D<EFBFBD>ؿ<EFBFBD><D8BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]<5D>w<EFBFBD>b coffice7.key <20>ɮפ<C9AE><D7A4>C
Echo.
Echo   <20>Ш̷ӳo<D3B3>ǨB<C7A8>J:
Echo     1) <20>b<EFBFBD>U<EFBFBD>C<EFBFBD><43><EFBFBD>椤<EFBFBD>j<EFBFBD>M<EFBFBD>D<EFBFBD>ؿ<EFBFBD><D8BF><EFBFBD> ASCII <20>ȡC
Echo        <20>z<EFBFBD><7A><EFBFBD>D<EFBFBD>ؿ<EFBFBD><D8BF><EFBFBD> %RootDrive%
Echo.
Echo        A = 61   E = 65   I = 69   M = 6D   Q = 71   U = 75   Y = 79
Echo        B = 62   F = 66   J = 6A   N = 6E   R = 72   V = 76   Z = 7A
Echo        C = 63   G = 67   K = 6B   O = 6F   S = 73   W = 77   
Echo        D = 64   H = 68   L = 6C   P = 70   T = 74   X = 78
Echo.
Echo     2) <20><><EFBFBD>O<EFBFBD>ƥ<EFBFBD><C6A5>Ұʫ<D2B0><CAAB>A<EFBFBD>H<EFBFBD>B<EFBFBD>J 1 <20><><EFBFBD><EFBFBD><EFBFBD>쪺<EFBFBD>ȨӨ<C8A8><D3A8>N 
Echo        <20>Ҧ<EFBFBD><D2A6><EFBFBD> 77<37>C
Echo        <20>`<60>N<EFBFBD>ƶ<EFBFBD>: <20>нT<D0BD>w<EFBFBD>b<EFBFBD><62><EFBFBD>N<EFBFBD>ާ@<40><><EFBFBD>A<EFBFBD>å<EFBFBD><C3A5>s<EFBFBD>W<EFBFBD>h<EFBFBD>l<EFBFBD><6C><EFBFBD>Ů<EFBFBD><C5AE>C
Echo     3) <20>x<EFBFBD>s<EFBFBD>ɮרõ<D7A8><C3B5><EFBFBD><EFBFBD>{<7B><><EFBFBD>C<EFBFBD>o<EFBFBD>ӫ<EFBFBD><D3AB>O<EFBFBD>ɱN<C9B1>|<EFBFBD>~<7E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>C
Echo.
Pause

NotePad "%SystemRoot%\Application Compatibility Scripts\Install\coffice7.key"

:PostDriveChange


Rem If not currently in Install Mode, change to Install Mode.
Set __OrigMode=Install
ChgUsr /query > Nul:
if Not ErrorLevel 101 Goto Begin2
Set __OrigMode=Exec
Change User /Install > Nul:
:Begin2

regini COffice7.key > Nul:

Rem <20>p<EFBFBD>G<EFBFBD>z<EFBFBD><7A><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>l<EFBFBD>Ҧ<EFBFBD><D2A6>A<EFBFBD><41><EFBFBD>ܧ<EFBFBD><DCA7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҧ<EFBFBD><D2A6>C
If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
Set __OrigMode=


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

Rem
Rem Modify logon script to copy iBase database from install location.
Rem




..\ACRegL %Temp%\COffice7.Cmd COffice7Loc "HKLM\Software\PerfectOffice\Products\InfoCentral\7" "ExeLocation" "StripChar\2"

If ErrorLevel 1 Goto InstallError

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


..\ACIniUpd /e "%COffice7Loc%\ICWin7\Local\Wpic.ini" Preferences Last_IBase "%RootDrive%\Personal\iBases\Personal\Personal"
If ErrorLevel 1 Goto InstallError


..\acsr "#COFFICE7INST#" "%COffice7Loc%\\" ..\Logon\Template\cofc7usr.Cmd ..\Logon\cofc7usr.Cmd
If ErrorLevel 1 Goto InstallError

goto PostInstallError
:InstallError

Echo.
Echo <20>L<EFBFBD>k<EFBFBD>q<EFBFBD>n<EFBFBD><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Corel Office 7 <20><><EFBFBD>w<EFBFBD>˦<EFBFBD><CBA6>m<EFBFBD>C
Echo <20>нT<D0BD>{<7B>O<EFBFBD>_<EFBFBD>w<EFBFBD>w<EFBFBD><77> Corel Office 7<>A<EFBFBD>í<EFBFBD><C3AD>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD><6F> 
Echo <20><><EFBFBD>O<EFBFBD>ɡC
Echo.
Pause
Goto Done

:PostInstallError

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

Rem 
Rem  <20>N WordPerfect <20>d<EFBFBD><64><EFBFBD>ܧ󦨰<DCA7>Ū<EFBFBD>ɡC
Rem  <20>o<EFBFBD>˷|<7C>j<EFBFBD><6A><EFBFBD>ϥΪ̦b<CCA6>ܧ󤧫e<F3A4A7AB><65><EFBFBD>إ߽ƥ<DFBD><C6A5>C
Rem  <20>t<EFBFBD>@<40>Ӥ覡<D3A4>O<EFBFBD><4F><EFBFBD>ѨC<D1A8>ӨϥΪ̤@<40><>
Rem  <20>p<EFBFBD>H<EFBFBD><48><EFBFBD><EFBFBD><EFBFBD>C
Rem

attrib +r %COffice7Loc%\Template\*wpt /s >Nul: 2>&1

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

Rem
Rem <20>N COfc7Usr.Cmd <20>[<5B>J UsrLogn2.Cmd <20><><EFBFBD>O<EFBFBD><4F>
Rem

FindStr /I COfc7Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
If Not ErrorLevel 1 Goto Skip1
Echo Call COfc7Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
:Skip1

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


Rem
Rem  <20>إ<EFBFBD> "Personal" <20>ؿ<EFBFBD> (<28>p<EFBFBD>G<EFBFBD><47><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD>b)<29>C
Rem  <20><><EFBFBD><EFBFBD><EFBFBD>إ߳o<DFB3>ӥؿ<D3A5><D8BF>A<EFBFBD>]<5D><> Admin <20>ݭn<DDAD><6E><EFBFBD>ʰ<EFBFBD><CAB0><EFBFBD><EFBFBD>H<EFBFBD>U
Rem  <20><><EFBFBD><EFBFBD><EFBFBD>ܪ<EFBFBD><DCAA>B<EFBFBD>J<EFBFBD>C
Rem  

If Not Exist "%RootDrive%\Personal" Md "%RootDrive%\Personal"

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

cls
Echo.
Echo   Quattro Pro <20>w<EFBFBD>]<5D>ؿ<EFBFBD><D8BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̷ӳo<D3B3>ǨB<C7A8>J<EFBFBD>H<EFBFBD><48><EFBFBD><EFBFBD>
Echo   <20>覡<EFBFBD>i<EFBFBD><69><EFBFBD>ܧ<EFBFBD>:
Echo     1) <20>b<EFBFBD><62><EFBFBD>O<EFBFBD><4F><EFBFBD><EFBFBD><EFBFBD>J 'change user /install'<27>C
Echo     2) <20>Ұ<EFBFBD> Quattro Pro<72>C
Echo     3) <20><><EFBFBD><EFBFBD> [<5B>s<EFBFBD><73><EFBFBD>ߦn<DFA6>]<5D>w] <20>\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ءC
Echo     4) <20><><EFBFBD><EFBFBD> [<5B>ɮ׿ﶵ] <20><><EFBFBD>޼<EFBFBD><DEBC>ҡC
Echo     5) <20>N<EFBFBD>ؿ<EFBFBD><D8BF>ܧ<EFBFBD><DCA7><EFBFBD> %RootDrive%\Personal<61>C
Echo     6) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>{<7B><><EFBFBD>C
Echo     7) <20>b<EFBFBD><62><EFBFBD>O<EFBFBD><4F><EFBFBD><EFBFBD><EFBFBD>J 'change user /execute'<27>C
Echo.
pause

Echo.
Echo   <20><><EFBFBD>F<EFBFBD><46><EFBFBD><EFBFBD> Corel Office 7 <20><><EFBFBD>T<EFBFBD>ާ@<40>A
Echo   <20>ثe<D8AB>w<EFBFBD>n<EFBFBD>J<EFBFBD><4A><EFBFBD>ϥΪ̥<CEAA><CCA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>n<EFBFBD>X<EFBFBD>A<EFBFBD>M<EFBFBD>᭫<EFBFBD>s<EFBFBD>n<EFBFBD>J<EFBFBD>A
Echo   <20>~<7E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ε{<7B><><EFBFBD>C
Echo.
Echo Corel Office 7 <20>h<EFBFBD>ϥΪ<CFA5><CEAA><EFBFBD><EFBFBD>ε{<7B><><EFBFBD>վ<EFBFBD><D5BE>B<EFBFBD>z<EFBFBD><7A><EFBFBD><EFBFBD>
Pause

:Done