windows-nt/Source/XPSP1/NT/termsrv/admtools/appcmpt/chs/msproj98.cmd

@Echo Off

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

Rem
Rem <20><><EFBFBD><EFBFBD>֤ %RootDrive% <20>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>ű<EFBFBD><C5B1><EFBFBD><EFBFBD>øñ<C3B8><C3B1><EFBFBD><EFBFBD><EFBFBD>
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><D7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ Project 98 <20>İ<EFBFBD>װλ<D7B0>á<EFBFBD><C3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҳ<EFBFBD><D2B2><EFBFBD><EFBFBD><EFBFBD>
Rem <20><><EFBFBD>ٶ<EFBFBD> Project û<>а<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>
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><DEB7><EFBFBD>ע<EFBFBD><D7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Project 98 <20>İ<EFBFBD>װλ<D7B0>á<EFBFBD>
Echo <20><><EFBFBD><EFBFBD>֤ Project 98 <20>Ƿ<EFBFBD><C7B7>Ѿ<EFBFBD><D1BE><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD>ٴ<EFBFBD><D9B4><EFBFBD><EFBFBD><EFBFBD>
Echo <20><><EFBFBD><EFBFBD><EFBFBD>ű<EFBFBD><C5B1><EFBFBD>
Echo.
Pause
Goto Done

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

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

Rem
Rem <20>Ѱ<EFBFBD>װ Office 97<39><37><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Project 98 <20><>װ<EFBFBD>ű<EFBFBD>
Rem <20>ѽ<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ƶ<EFBFBD><C6B5>˵<EFBFBD>ǰ<EFBFBD>û<EFBFBD><C3BB><EFBFBD>Ŀ¼<C4BF><C2BC>
Rem <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD>һ<EFBFBD><D2BB>ͨ<EFBFBD>õĵط<C4B5><D8B7><EFBFBD>Proj98Usr.cmd <20>Ὣ<EFBFBD><E1BDAB><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD>ȥ<EFBFBD><C8A5>
Rem






If NOT Exist "%RootDrive%\Office97\Templates\Microsoft Project"  goto skip10
If Exist  "%PROJINST%\..\Templates\Microsoft Project" goto skip10
xcopy "%RootDrive%\Office97\Templates\Microsoft Project" "%PROJINST%\..\Templates\Microsoft Project" /E /I /K > Nul: 2>&1

:skip10






If NOT Exist "%RootDrive%\Office97\Templates\Microsoft Project Web"  goto skip11
If Exist  "%PROJINST%\..\Templates\Microsoft Project Web" goto skip11
xcopy "%RootDrive%\Office97\Templates\Microsoft Project Web" "%PROJINST%\..\Templates\Microsoft Project Web" /E /I /K > Nul: 2>&1

:skip11

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

Rem
Rem ʹ Global.mpt <20>ļ<EFBFBD><C4BC><EFBFBD>Ϊֻ<CEAA><D6BB><EFBFBD><EFBFBD> 
Rem <20><><EFBFBD>򣬵<EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Project <20><><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>ı<EFBFBD> ACL
Rem

if Exist "%PROJINST%\Global.mpt" attrib +r "%PROJINST%\Global.mpt"


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

Rem
Rem <20><><EFBFBD><EFBFBD> Office 97 <20><><EFBFBD>µ<EFBFBD>ϵͳ DLL <20>ϵ<EFBFBD>ÿ<EFBFBD><C3BF><EFBFBD><EFBFBD>
Rem <20>ж<EFBFBD>ȡȨ<C8A1><C8A8>
Rem
If Exist %SystemRoot%\System32\OleAut32.Dll cacls %SystemRoot%\System32\OleAut32.Dll /E /T /G "Authenticated Users":R > NUL: 2>&1

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

Rem
Rem <20><><EFBFBD><EFBFBD> Powerpoint <20><> Excel <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<28>ļ<EFBFBD>/<2F><><EFBFBD><EFBFBD>Ϊ HTML<4D><4C><EFBFBD><EFBFBD>)
Rem <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> MsForms.Twd <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Щ<EFBFBD><D0A9><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 
Rem <20><><EFBFBD>ú<EFBFBD><C3BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݵ<EFBFBD><DDB5>ļ<EFBFBD><C4BC>滻 
Rem <20><>Ӧ<EFBFBD><D3A6><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
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><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ġ<EFBFBD><C4A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ٲ<EFBFBD><D9B2>ҡ<EFBFBD><D2A1><EFBFBD>
Rem <20><><EFBFBD><EFBFBD><EFBFBD>ٲ<EFBFBD><D9B2>ҡ<EFBFBD><D2A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD>Ӱ<EFBFBD><D3B0>ϵͳ
Rem <20><><EFBFBD>ܡ<EFBFBD>
Rem


If Exist "%COMMON_STARTUP%\Microsoft <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>.lnk" Del "%COMMON_STARTUP%\Microsoft <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>.lnk"

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

Rem
Rem <20><><EFBFBD><EFBFBD>ע<EFBFBD><D7A2><EFBFBD><EFBFBD><EFBFBD>ʹ·<CAB9><C2B7>ָ<EFBFBD><D6B8><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>е<EFBFBD>
Rem Ŀ¼<C4BF><C2BC>
Rem

Rem <20><><EFBFBD><EFBFBD>Ŀǰ<C4BF><C7B0><EFBFBD>ڰ<EFBFBD>װģʽ<C4A3>У<EFBFBD><D0A3><EFBFBD><EFBFBD>ijɰ<C4B3>װģʽ<C4A3><CABD>
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>ԭʼģʽ<C4A3><CABD>ִ<EFBFBD>У<EFBFBD><D0A3><EFBFBD><EFBFBD>Ļ<EFBFBD>ִ<EFBFBD><D6B4>ģʽ<C4A3><CABD>
If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
Set __OrigMode=


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

Rem
Rem <20><><EFBFBD><EFBFBD> proj97Usr.Cmd <20><><EFBFBD><EFBFBD>ӳʵ<D3B3>ʰ<EFBFBD>װĿ¼<C4BF><C2BC>
Rem <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӵ<EFBFBD> UsrLogn2.Cmd <20>ű<EFBFBD>
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   Ҫ<><D2AA>֤ Project 98 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>У<EFBFBD><D0A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>κ<EFBFBD>
Echo   Ӧ<>ó<EFBFBD><C3B3><EFBFBD>֮ǰ<D6AE><C7B0>Ŀǰ<C4BF><C7B0>¼<EFBFBD><C2BC><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע<EFBFBD><D7A2><EFBFBD><EFBFBD>
Echo   <20><><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>¼<EFBFBD><C2BC>
Echo.
Echo Microsoft Project 98 <20><><EFBFBD>û<EFBFBD>Ӧ<EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>
Pause

:done