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

@Echo Off

Cls
Rem #########################################################################

Rem
Rem ȷ<><C8B7><EFBFBD>Ƿ<EFBFBD> %ROOTDRIVE% <20>ѱ<EFBFBD><D1B1><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD><DAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ű<EFBFBD><C5B1><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><D0BB><EFBFBD> Visio <20>İ<EFBFBD>װλ<D7B0><CEBB>
Rem <20><><EFBFBD><EFBFBD> Visio <20>汾: Standard/Technical/Professional
Rem

Set VisioVer=Standard
..\ACRegL %Temp%\Vso.cmd VSO5INST "HKLM\Software\Visio\Visio Standard\5.0" "InstallDir" ""
If Not ErrorLevel 1 Goto Cont0

Set VisioVer=Technical
..\ACRegl %Temp%\Vso.cmd VSO5INST "HKLM\Software\Visio\Visio Technical\5.0" "InstallDir" ""
If Not ErrorLevel 1 Goto Cont0

Set VisioVer=Professional
..\ACRegl %Temp%\Vso.cmd VSO5INST "HKLM\Software\Visio\Visio Professional\5.0" "InstallDir" ""
If Not ErrorLevel 1 Goto Cont0

Set VisioVer=Enterprise
..\ACRegl %Temp%\Vso.cmd VSO5INST "HKLM\Software\Visio\Visio Enterprise\5.0" "InstallDir" ""
If Not ErrorLevel 1 Goto Cont0

Set VisioVer=TechnicalPlus
..\ACRegl %Temp%\Vso.cmd VSO5INST "HKLM\Software\Visio\Visio Technical 5.0 Plus\5.0" "InstallDir" ""
If Not ErrorLevel 1 Goto Cont0

Set VisioVer=ProfessionalAndTechnical
..\ACRegl %Temp%\Vso.cmd VSO5INST "HKLM\Software\Visio\Visio Professional and Technical\5.0" "InstallDir" ""
If Not ErrorLevel 1 Goto Cont0

Rem
Rem <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD>汾ʧ<E6B1BE><CAA7>
Rem 

Echo.
Echo <20>޷<EFBFBD><DEB7><EFBFBD>ע<EFBFBD><D7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>л<EFBFBD><D0BB><EFBFBD> Visio 5.0 <20>İ<EFBFBD>װλ<D7B0>á<EFBFBD>
Echo ȷ<><C8B7><EFBFBD>Ƿ<EFBFBD> Visio 5.0 <20>ѱ<EFBFBD><D1B1><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>и<EFBFBD><D0B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ű<EFBFBD><C5B1><EFBFBD>
Echo 
Echo.
Pause
Goto Done

Rem
Rem <20><><EFBFBD><EFBFBD> VSO5INST <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8> Visio <20>İ<EFBFBD>װĿ¼
Rem
:Cont0
Call %Temp%\Vso.cmd
Del %Temp%\Vso.cmd >NUL: 2>&1

Rem
Rem <20><>ʾ<EFBFBD><CABE>װ<EFBFBD><D7B0><EFBFBD>ĸ<EFBFBD><C4B8>汾
Rem 
Echo.
Echo Ӧ<>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ű<EFBFBD><C5B1><EFBFBD><EFBFBD>⵽<EFBFBD>汾 Visio %VisioVer%
Echo.

Rem
Rem <20><><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>Ŀ¼<C4BF><C2BC>ÿ<EFBFBD>û<EFBFBD><C3BB>ļ<EFBFBD><C4BC><EFBFBD> My Documents
Rem <20><><EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD>װ<EFBFBD>û<EFBFBD><C3BB>ļ<EFBFBD><C4BC><EFBFBD> My Documents
Rem

..\Aciniupd /e "%VSO5INST%\System\Visio.ini" "Application" "DrawingsPath" "%ROOTDRIVE%\%MY_DOCUMENTS%"

Rem
Rem <20>û<EFBFBD><C3BB>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>
Rem <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0> Office<63><65><EFBFBD>뽫 Visio.ini <20><>ָ<EFBFBD><D6B8> Office <20><> custom.dic <20>ļ<EFBFBD>
Rem <20><><EFBFBD><EFBFBD><EFBFBD>Ļ<EFBFBD><C4BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ APP_DATA
Rem

..\ACRegL %Temp%\Off.Cmd OFFINST "HKLM\Software\Microsoft\Office\9.0\Common\InstallRoot" "" ""
If Not ErrorLevel 1 Goto Off2000

..\ACRegL %Temp%\Off.Cmd OFFINST "HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot" "" ""
If Not ErrorLevel 1 Goto Off97

..\ACRegL %Temp%\Off.Cmd OFFINST "HKLM\Software\Microsoft\Microsoft Office\95\InstallRoot" "" ""
If Not ErrorLevel 1 Goto Off95

..\ACRegL %Temp%\Off.Cmd OFFINST "HKLM\Software\Microsoft\Microsoft Office\95\InstallRootPro" "" ""
If Not ErrorLevel 1 Goto Off95

Rem <20><><EFBFBD><EFBFBD>ִ<EFBFBD>е<EFBFBD><D0B5><EFBFBD><EFBFBD>˵<EFA3AC><CBB5>û<EFBFBD>а<EFBFBD>װ<EFBFBD>κ<EFBFBD> Office <20>汾
Set CustomDicPath=%ROOTDRIVE%\%APP_DATA%
goto SetCusIni

:Off2000
Rem <20><>װ<EFBFBD><D7B0> Office 2000
set CustomDicPath=%ROOTDRIVE%\%APP_DATA%\Microsoft\Proof
goto SetCusIni

:Off97
Rem <20><>װ<EFBFBD><D7B0> Office97
set CustomDicPath=%ROOTDRIVE%\Office97
goto SetCusIni

:Off95
Rem <20><>װ<EFBFBD><D7B0> Office95
Set CustomDicPath=%ROOTDRIVE%\Office95

:SetCusIni
Rem <20><><EFBFBD>ݹ<EFBFBD><DDB9>򣬸<EFBFBD><F2A3ACB8><EFBFBD> Visio.ini <20>е<EFBFBD><D0B5>û<EFBFBD><C3BB>ʵ<EFBFBD><CAB5>
Rem 
..\Aciniupd /e "%VSO5INST%\System\Visio.ini" "Application" "UserDictionaryPath1" "%CustomDicPath%\Custom.Dic"

Set CustomDicPath=

Rem 
Rem <20>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>
Rem

Echo. 
Echo Visio 5.0 <20><><EFBFBD>û<EFBFBD>Ӧ<EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϡ<EFBFBD>
Echo.
Pause

:Done