134 lines
3.3 KiB
Batchfile
134 lines
3.3 KiB
Batchfile
|
@Echo Off
|
|||
|
|
|
|||
|
|
Cls
|
|||
|
|
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 #########################################################################
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20>q<EFBFBD>n<EFBFBD><6E><EFBFBD>ɨ<EFBFBD><C9A8>o Visio <20>w<EFBFBD>˦<EFBFBD><CBA6>m<EFBFBD>C
|
|||
|
|
Rem Visio <20>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 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>w<EFBFBD>˪<EFBFBD><CBAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡC
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
Echo.
|
|||
|
|
Echo <20>L<EFBFBD>k<EFBFBD>q<EFBFBD>n<EFBFBD><6E><EFBFBD>ɧ<EFBFBD><C9A7><EFBFBD> Visio 5.0 <20>w<EFBFBD>˦<EFBFBD><CBA6>m<EFBFBD>C
|
|||
|
|
Echo <20><><EFBFBD>ˬd Visio 5.0 <20>O<EFBFBD>_<EFBFBD>w<EFBFBD>w<EFBFBD>ˡA<CBA1>í<EFBFBD><C3AD>s
|
|||
|
|
Echo <20><><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD>ӫ<EFBFBD><D3AB>O<EFBFBD>ɡC
|
|||
|
|
Echo.
|
|||
|
|
Pause
|
|||
|
|
Goto Done
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20>N VSO5INST <20>ܼƳ]<5D>w<EFBFBD><77> Visio <20>w<EFBFBD>˥ؿ<CBA5><D8BF>C
|
|||
|
|
Rem
|
|||
|
|
:Cont0
|
|||
|
|
Call %Temp%\Vso.cmd
|
|||
|
|
Del %Temp%\Vso.cmd >NUL: 2>&1
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20><><EFBFBD>ܦw<DCA6>˪<EFBFBD><CBAA><EFBFBD><EFBFBD>C
|
|||
|
|
Rem
|
|||
|
|
Echo.
|
|||
|
|
Echo <20><><EFBFBD>ε{<7B><><EFBFBD>վ<EFBFBD><D5BE>\<5C><><EFBFBD>w<EFBFBD><77><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Vision %VisioVer% <20><><EFBFBD>C
|
|||
|
|
Echo.
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20><><EFBFBD>C<EFBFBD>ӨϥΪ̪<CEAA> [<5B>ڪ<EFBFBD><DAAA><EFBFBD><EFBFBD><EFBFBD>] <20>]<5D>w<EFBFBD>x<EFBFBD>s<EFBFBD>ؿ<EFBFBD><D8BF>A
|
|||
|
|
Rem <20><><EFBFBD><EFBFBD><EFBFBD>w<EFBFBD>˨<EFBFBD><CBA8>ϥΪ̪<CEAA> [<5B>ڪ<EFBFBD><DAAA><EFBFBD><EFBFBD><EFBFBD>] <20><><EFBFBD>C
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
..\Aciniupd /e "%VSO5INST%\System\Visio.ini" "Application" "DrawingsPath" "%ROOTDRIVE%\%MY_DOCUMENTS%"
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem [<5B>ۭq<DBAD>ؿ<EFBFBD>] <20>z
|
|||
|
|
Rem <20>p<EFBFBD>G Office <20>w<EFBFBD>w<EFBFBD><77> (<28><><EFBFBD>@<40>ت<EFBFBD><D8AA><EFBFBD>)<29>A<EFBFBD>N Visio.ini <20><><EFBFBD>س]<5D>w<EFBFBD><77><EFBFBD><EFBFBD><EFBFBD>V Office custom.dic
|
|||
|
|
Rem <20>_<EFBFBD>h<EFBFBD>N<EFBFBD>]<5D>w<EFBFBD><77> AppData<74>C
|
|||
|
|
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>p<EFBFBD>G<EFBFBD><47><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD>̡A<CCA1><41><EFBFBD>ܨS<DCA8><53><EFBFBD>w<EFBFBD><77> Office<63>C
|
|||
|
|
Set CustomDicPath=%ROOTDRIVE%\%APP_DATA%
|
|||
|
|
goto SetCusIni
|
|||
|
|
|
|||
|
|
:Off2000
|
|||
|
|
Rem Office 2000 <20>w<EFBFBD>w<EFBFBD><77>
|
|||
|
|
set CustomDicPath=%ROOTDRIVE%\%APP_DATA%\Microsoft\Proof
|
|||
|
|
goto SetCusIni
|
|||
|
|
|
|||
|
|
:Off97
|
|||
|
|
Rem Office97 <20>w<EFBFBD>w<EFBFBD><77>
|
|||
|
|
set CustomDicPath=%ROOTDRIVE%\Office97
|
|||
|
|
goto SetCusIni
|
|||
|
|
|
|||
|
|
:Off95
|
|||
|
|
Rem Office95 <20>w<EFBFBD>w<EFBFBD><77>
|
|||
|
|
Set CustomDicPath=%ROOTDRIVE%\Office95
|
|||
|
|
|
|||
|
|
:SetCusIni
|
|||
|
|
Rem <20>ھڭ<DABE><DAAD>h<EFBFBD><68><EFBFBD>ܧ<EFBFBD><DCA7>ϥΪ̦ۭq<DBAD>ؿ<EFBFBD><D8BF><EFBFBD><EFBFBD>ءC
|
|||
|
|
Rem
|
|||
|
|
..\Aciniupd /e "%VSO5INST%\System\Visio.ini" "Application" "UserDictionaryPath1" "%CustomDicPath%\Custom.Dic"
|
|||
|
|
|
|||
|
|
Set CustomDicPath=
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20><><EFBFBD>\<5C>פ<EFBFBD><D7A4>C
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
Echo.
|
|||
|
|
Echo Visio 5.0 <20>h<EFBFBD>ϥΪ<CFA5><CEAA><EFBFBD><EFBFBD>ε{<7B><><EFBFBD>վ㧹<D5BE><E3A7B9><EFBFBD>C
|
|||
|
|
Echo.
|
|||
|
|
Pause
|
|||
|
|
|
|||
|
|
:Done
|
|||
|
|
|
|||
|
|
|