156 lines
4.5 KiB
Batchfile
156 lines
4.5 KiB
Batchfile
|
@Echo Off
|
|||
|
|
|||
|
Rem #########################################################################
|
|||
|
|
|||
|
Rem
|
|||
|
Rem %RootDrive% <20><><EFBFBD>\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>p<EFBFBD>ɐݒ肳<DD92><E882B3><EFBFBD>Ă<EFBFBD><C482>邱<EFBFBD>Ƃ<EFBFBD><C682>m<EFBFBD>F<EFBFBD><46><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
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>W<EFBFBD>X<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Outlook 98 <20><><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>擾<EFBFBD><E693BE><EFBFBD>܂<EFBFBD><DC82>B<EFBFBD><42><EFBFBD><EFBFBD><C282><EFBFBD><EFBFBD>Ȃ<EFBFBD><C882>ꍇ<EFBFBD>́A
|
|||
|
Rem <20><><EFBFBD>̃A<CC83>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>̓C<CD83><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>Ȃ<EFBFBD><C882>Ɖ<EFBFBD><C689>肵<EFBFBD>ăG<C483><47><EFBFBD>[<5B><><EFBFBD>b<EFBFBD>Z<EFBFBD>[<5B>W<EFBFBD><57><EFBFBD>\<5C><><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
Rem
|
|||
|
|
|||
|
..\ACRegL %Temp%\O98.Cmd O98INST "HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot" "OfficeBin" "Stripchar\1"
|
|||
|
If Not ErrorLevel 1 Goto Cont0
|
|||
|
Echo.
|
|||
|
Echo <20><><EFBFBD>W<EFBFBD>X<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Outlook 98 <20>̃C<CC83><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD>ꏊ<EFBFBD><EA8F8A><EFBFBD>擾<EFBFBD>ł<EFBFBD><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B
|
|||
|
Echo Outlook 98 <20><><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>邩<EFBFBD>ǂ<EFBFBD><C782><EFBFBD><EFBFBD>m<EFBFBD>F<EFBFBD><46><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>A<EFBFBD><41><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD><67>
|
|||
|
Echo <20>Ď<EFBFBD><C48E>s<EFBFBD><73><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B
|
|||
|
Echo.
|
|||
|
Pause
|
|||
|
Goto Done
|
|||
|
|
|||
|
:Cont0
|
|||
|
Call %Temp%\O98.Cmd
|
|||
|
Del %Temp%\O98.Cmd >Nul: 2>&1
|
|||
|
|
|||
|
Rem #########################################################################
|
|||
|
|
|||
|
Rem
|
|||
|
Rem <20><><EFBFBD>W<EFBFBD>X<EFBFBD>g<EFBFBD><67> <20>L<EFBFBD>[<5B><><EFBFBD>ύX<CF8D><58><EFBFBD>āA<C481>p<EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD>[<5B>U<EFBFBD>[<5B>ŗL<C597>̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67>
|
|||
|
Rem <20><><EFBFBD>w<EFBFBD><77><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>悤<EFBFBD>ɂ<EFBFBD><C982>܂<EFBFBD><DC82>B
|
|||
|
Rem
|
|||
|
|
|||
|
Rem <20><><EFBFBD>݁A<DD81>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><> <20><><EFBFBD>[<5B>h<EFBFBD>łȂ<C582><C882>ꍇ<EFBFBD>A<EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><> <20><><EFBFBD>[<5B>h<EFBFBD>ɕύX<CF8D><58><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
Set __OrigMode=Install
|
|||
|
ChgUsr /query > Nul:
|
|||
|
if Not ErrorLevel 101 Goto Begin
|
|||
|
Set __OrigMode=Exec
|
|||
|
Change User /Install > Nul:
|
|||
|
:Begin
|
|||
|
|
|||
|
|
|||
|
REM
|
|||
|
REM Office97 <20><><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>A<EFBFBD>܂<EFBFBD><DC82><EFBFBD> Office <20><><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>Ȃ<EFBFBD><C882>ꍇ<EFBFBD>AOffice97 <20>̃<EFBFBD><CC83>[<5B>U<EFBFBD>[<5B><><EFBFBD>Ƃ̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>g<EFBFBD>p<EFBFBD><70><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
REM Office95 <20><><EFBFBD>C<EFBFBD><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>ꍇ<EFBFBD>́AOffice95 <20>̃<EFBFBD><CC83>[<5B>U<EFBFBD>[<5B><><EFBFBD>Ƃ̃f<CC83>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>g<EFBFBD>p<EFBFBD><70><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
REM
|
|||
|
Set OffUDir=Office97
|
|||
|
|
|||
|
..\ACRegL %Temp%\Off.Cmd OFFINST "HKLM\Software\Microsoft\Office\8.0\Common\InstallRoot" "" ""
|
|||
|
If Not ErrorLevel 1 Goto OffChk
|
|||
|
|
|||
|
..\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
|
|||
|
|
|||
|
set OFFINST=%O98INST%
|
|||
|
goto Cont1
|
|||
|
|
|||
|
:Off95
|
|||
|
Set OffUDir=Office95
|
|||
|
|
|||
|
:OffChk
|
|||
|
|
|||
|
Call %Temp%\Off.Cmd
|
|||
|
Del %Temp%\Off.Cmd >Nul: 2>&1
|
|||
|
|
|||
|
:Cont1
|
|||
|
|
|||
|
..\acsr "#ROOTDRIVE#" "%RootDrive%" Template\Outlk98.Key Outlk98.Tmp
|
|||
|
..\acsr "#INSTDIR#" "%OFFINST%" Outlk98.Tmp Outlk98.Tmp2
|
|||
|
..\acsr "#OFFUDIR#" "%OffUDir%" Outlk98.Tmp2 Outlk98.Tmp3
|
|||
|
..\acsr "#MY_DOCUMENTS#" "%MY_DOCUMENTS%" Outlk98.Tmp3 Outlk98.Key
|
|||
|
|
|||
|
|
|||
|
Del Outlk98.Tmp >Nul: 2>&1
|
|||
|
Del Outlk98.Tmp2 >Nul: 2>&1
|
|||
|
Del Outlk98.Tmp3 >Nul: 2>&1
|
|||
|
|
|||
|
regini Outlk98.key > Nul:
|
|||
|
|
|||
|
Rem <20><><EFBFBD>̃<EFBFBD><CC83>[<5B>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>[<5B>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ꍇ<EFBFBD>A<EFBFBD><41><EFBFBD>s<EFBFBD><73><EFBFBD>[<5B>h<EFBFBD>ɖ߂<C996><DF82>܂<EFBFBD><DC82>B
|
|||
|
If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
|
|||
|
Set __OrigMode=
|
|||
|
|
|||
|
Rem #########################################################################
|
|||
|
|
|||
|
Rem
|
|||
|
Rem <20><><EFBFBD>ۂ̃C<CC83><43><EFBFBD>X<EFBFBD>g<EFBFBD>[<5B><> <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>f<F094BD89><66><EFBFBD><EFBFBD><EFBFBD>邽<EFBFBD><E982BD> Olk98Usr.Cmd <20><><EFBFBD>X<EFBFBD>V<EFBFBD><56><EFBFBD>āA
|
|||
|
Rem UsrLogn2.Cmd <20>X<EFBFBD>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>ɒlj<C992><C789><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
Rem
|
|||
|
|
|||
|
..\acsr "#INSTDIR#" "%OFFINST%" ..\Logon\Template\Olk98Usr.Cmd Olk98Usr.Tmp
|
|||
|
..\acsr "#OFFUDIR#" "%OffUDir%" Olk98Usr.Tmp ..\Logon\Olk98Usr.Cmd
|
|||
|
Del Olk98Usr.Tmp
|
|||
|
|
|||
|
FindStr /I Olk98Usr %SystemRoot%\System32\UsrLogn2.Cmd >Nul: 2>&1
|
|||
|
If Not ErrorLevel 1 Goto Skip1
|
|||
|
Echo Call Olk98Usr.Cmd >> %SystemRoot%\System32\UsrLogn2.Cmd
|
|||
|
:Skip1
|
|||
|
|
|||
|
Rem #########################################################################
|
|||
|
|
|||
|
Rem
|
|||
|
Rem SystemRoot <20>̉<EFBFBD><CC89><EFBFBD> msremote.sfs <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>쐬<EFBFBD><EC90AC><EFBFBD>܂<EFBFBD><DC82>B<EFBFBD><42><EFBFBD><EFBFBD><EFBFBD>ɂ<EFBFBD><C982><EFBFBD><EFBFBD>A<EFBFBD><41><EFBFBD>[<5B>U<EFBFBD>[<5B><><EFBFBD>R<EFBFBD><52><EFBFBD>g<EFBFBD><67><EFBFBD>[<5B><>
|
|||
|
Rem <20>p<EFBFBD>l<EFBFBD><6C><EFBFBD><EFBFBD> [<5B><><EFBFBD>[<5B><><EFBFBD><EFBFBD> FAX] <20>̃A<CC83>C<EFBFBD>R<EFBFBD><52><EFBFBD><EFBFBD><EFBFBD>g<EFBFBD><67><EFBFBD>ăv<C483><76><EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>쐬<EFBFBD>ł<EFBFBD><C582><EFBFBD><EFBFBD>悤<EFBFBD>ɂȂ<C982><C882>܂<EFBFBD><DC82>B
|
|||
|
Rem
|
|||
|
|
|||
|
md %systemroot%\msremote.sfs > Nul: 2>&1
|
|||
|
|
|||
|
|
|||
|
|
|||
|
Rem #########################################################################
|
|||
|
|
|||
|
Rem
|
|||
|
Rem <20>^<5E>[<5B>~<7E>i<EFBFBD><69> <20>T<EFBFBD>[<5B>r<EFBFBD>X<EFBFBD>̃<EFBFBD><CC83>[<5B>U<EFBFBD>[<5B><> Outlook <20>p<EFBFBD><70> frmcache.dat <20>ύX<CF8D>A<EFBFBD>N<EFBFBD>Z<EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD><EFBFBD><C282>܂<EFBFBD><DC82>B
|
|||
|
Rem
|
|||
|
|
|||
|
If Exist %SystemRoot%\Forms\frmcache.dat cacls %SystemRoot%\forms\frmcache.dat /E /G "Terminal Server User":C >NUL: 2>&1
|
|||
|
|
|||
|
Rem #########################################################################
|
|||
|
|
|||
|
|
|||
|
Rem #########################################################################
|
|||
|
|
|||
|
Rem
|
|||
|
Rem SystemRoot <20>̉<EFBFBD><CC89><EFBFBD> msfslog.txt <20><><EFBFBD>쐬<EFBFBD><EC90AC><EFBFBD>āA<C481>^<5E>[<5B>~<7E>i<EFBFBD><69> <20>T<EFBFBD>[<5B>r<EFBFBD>X<EFBFBD>̃<EFBFBD><CC83>[<5B>U<EFBFBD>[<5B>ɁA
|
|||
|
Rem <20><><EFBFBD>̃t<CC83>@<40>C<EFBFBD><43><EFBFBD>̃t<CC83><74> <20>A<EFBFBD>N<EFBFBD>Z<EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><C282>^<5E><><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
Rem
|
|||
|
|
|||
|
If Exist %systemroot%\MSFSLOG.TXT Goto MsfsACLS
|
|||
|
Copy Nul: %systemroot%\MSFSLOG.TXT >Nul: 2>&1
|
|||
|
:MsfsACLS
|
|||
|
Cacls %systemroot%\MSFSLOG.TXT /E /P "Terminal Server User":F >Nul: 2>&1
|
|||
|
|
|||
|
|
|||
|
Echo.
|
|||
|
Echo Outlook 98 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɍ쓮<C98D><EC93AE><EFBFBD>邽<EFBFBD>߂ɂ́A<CD81><41><EFBFBD>݃<EFBFBD><DD83>O<EFBFBD>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD>
|
|||
|
Echo <20><><EFBFBD>[<5B>U<EFBFBD>[<5B>̓A<CD83>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD>O<EFBFBD>ɁA<C981><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>O<F1838D83>I<EFBFBD>t<EFBFBD><74><EFBFBD><EFBFBD>
|
|||
|
Echo <20><><EFBFBD><EFBFBD><EFBFBD>ēx<C493><78><EFBFBD>O<EFBFBD>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>K<EFBFBD>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B
|
|||
|
Echo.
|
|||
|
Echo Microsoft Outlook 98 <20>̃}<7D><><EFBFBD>`<60><><EFBFBD>[<5B>U<EFBFBD>[ <20>A<EFBFBD>v<EFBFBD><76><EFBFBD>P<EFBFBD>[<5B>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD><EFBFBD><C28B>ݒ肪<DD92><E882AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B
|
|||
|
Pause
|
|||
|
|
|||
|
:done
|
|||
|
|