用shell 在Xubuntu 18.04x64 安裝 Anaconda 3

檔案名稱：Anaconda3InstallXub1804x64.sh

檔案內容：

#!/bin/bash

apt-get update

apt-get install vim wget

wget https://repo.anaconda.com/archive/Anaconda3-2020.02-Linux-x86_64.sh

sh Anaconda3-2020.02-Linux-x86_64.sh -y

chown -R $USER:$USER ~/anaconda3

source ~/.bashrc

如何使用？

$sudo chmod 777 Anaconda3InstallXub1804x64.sh

$sudo sh Anaconda3InstallXub1804x64.sh

資料來源：
1.Ubuntu 18.04 安裝 Anaconda3

用Shell 在Xubuntu 18.04 x64安裝 Visual Studio Code

檔案名稱：VSCodeInstallXub1804x64.sh

檔案內容：

#!/bin/bash

wget -qO- https://packages.microsoft.com/keys/microsoft.asc | gpg --dearmor > packages.microsoft.gpg

sudo install -o root -g root -m 644 packages.microsoft.gpg /etc/apt/trusted.gpg.d/

sudo sh -c 'echo "deb [arch=amd64,arm64,armhf signed-by=/etc/apt/trusted.gpg.d/packages.microsoft.gpg] https://packages.microsoft.com/repos/code stable main" > /etc/apt/sources.list.d/vscode.list'

rm -f packages.microsoft.gpg

apt install apt-transport-https

apt update

apt install code

如何使用

$sudo chmod 777 VSCodeInstallXub1804x64.sh

$sudo sh VSCodeInstallXub1804x64.sh

資料來源：

1.Visual Studio Code on Linux

如何符合資安法規定Apche2 需升級到2.4.47以上版本但原本xoops網站功能依舊

主題一：Xoops 網站從http改為https的步驟

主題二：Xoops網站經 SSL 檢測後，需要做的補強

主題三：如何符合資安法規定Apche2 需升級到2.4.47以上版本但原本xoops網站功能依舊

主題四：Xoops 網站從原先sslforfree憑證改用公用憑證的安裝步驟

一、由於收到通知，要讓自己的Apache2 升級到2.4.47以上版本。否則會有資安風險。於是上網Google，就有資料來源1.Apache 2.4.x < 2.4.47 多個弱點。

二、問題是我該如何去著手呢？

        檢查現有狀況如下：

       1.主機上的網站：Xoops(用到資料庫mysql)、一頁式網站

       2.主機上的作業系統：Ubuntu 16.04 x64

       3.主機上的Apache版本：2.4.18

       4.主機上的MySQL版本：5.7

       5. 4.主機上的PHP版本：5.6

三、決定先升級主機上的Apache版本，其步驟如下：
       1.檢查Apache2 版本：
       $apache2 -v

       2.新增Apache2套件庫並更新Apache2

       $sudo add-apt-repository ppa:ondrej/apache2 

       $sudo  apt update

       $sudo apt install apache2

       再次檢查版本

       $apache2 -v

       若是相同版本，則改用

        $sudo apt upgrade apache2 -y

       

四、升級主機上Ubuntu 16.04 到 18.04，其步驟如下：

       $sudo apt-get update

       $sudo apt-get upgrade

       $sudo apt-get dist-upgrade

       $reboot

       $sudo do-release-upgrade

       此時主機的升級，資料庫mysql 會升級到 5.7.36

五、升級主機上Ubuntu 16.04 到 18.04升級完畢後，記得再將Apache2 升級

       $sudo add-apt-repository ppa:ondrej/apache2 

       $sudo apt update

       $sudo apt install apache2

       原先的xoops 網站的快速登入tad_login會需要一個php 擴展 curl

       $sudo apt-get install php5.6-curl

       $sudo service apache2 reload

資料來源：

1.Apache 2.4.x < 2.4.47 多個弱點

2.Upgrade Apache to Latest Version in Ubuntu Server 20
3.【筆記整理】Ubuntu 16.04.6 LTS 升級到 Ubuntu 18.04.4 LTS

4.如何在 Ubuntu 20.04 上將 Apache 升級到最新版本

5.在 Ubuntu 上將 Google OAuth 與 PHP 集成時需要 CURL PHP 擴展的錯誤

只要滑鼠點兩下，讓電腦開機自動完成彰化縣 KMS 雙認證暫停兩秒後自動關閉認證畫面

 系列文章：

1.只要滑鼠點兩下，就可以完成彰化縣網中心Windows與office認證

2.只要滑鼠點兩下，讓電腦開機自動完成彰化縣Windows KMS認證

3.只要滑鼠點兩下，讓BAT自動判別Office版本進行彰化縣Office KMS 認證

4.只要滑鼠點兩下，讓電腦開機自動判別Office版本並進行彰化縣Office KMS 認證

5.只要滑鼠點兩下，讓電腦開機自動完成彰化縣Office 與Windows KMS 雙認證

6.只要滑鼠點兩下，讓電腦開機自動完成彰化縣 KMS 雙認證暫停兩秒後自動關閉認證畫面

          由於彰化縣KMS將於2021年11月1日停止服務，資訊組就人仰馬翻要去處理電腦Windows與Office認證。希望能夠只要滑鼠點兩下，讓電腦開機時就完成Windows與Office雙認證，不需要資訊組再去處理。那如果想要電腦開機時就完成Windows與Office雙認證，也只要點兩下就好。後來再度發現，認證視窗會一直留著，需要人工去關閉。可否2秒後，該認證視窗就自動關閉。不需要人工再去處理。

範例檔案下載，解壓密碼demo1234

教學影片：

        此外，針對縣網版本Office認證BAT，進行比對。發現chcoffice2016_kms.bat 與 chcoffice2019_kms.bat 的內容 只有6與9的差別。換言之，office2019的認證可以用chcoffice2016_kms.bat 進行認證。

目的：完成Windows 10 認證後兩秒自動關閉

檔案名稱：chcwin10_kms.bat

內容：

@echo off

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

echo @  

echo @ 彰化縣網Windows 10系統認證中，請稍候......

echo @ 本程式僅限用Windows 10 Enterprise 版本 

echo @

echo @

echo @

cscript c:\windows\system32\slmgr.vbs -skms 163.23.200.140

cscript c:\windows\system32\slmgr.vbs -ato

echo @

echo @

echo @ 

echo @ 若是出現Product activated successfully訊息，

echo @ 代表Windows 10作業系統已經啟用成功，

echo @ 提醒您，每180天必須將系統重新啟用一次！！

echo @

echo @ 本程式僅限縣內國中小使用，

echo @ 有任何問題，請直接洽詢彰化縣網中心。

echo @ 祝您使用愉快！

echo @ 彰化縣網中心  

echo. 

timeout /t 2

目的：完成Windows 7 認證後兩秒自動關閉

檔案名稱：chcwin7_kms.bat

內容：

@echo off

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

echo @  

echo @ 彰化縣網Windows 7系統認證中，請稍候......

echo @ 本程式僅限用Windows 7 Enterprise 版本 

echo @

echo @

echo @

cscript c:\windows\system32\slmgr.vbs -skms 163.23.200.140

cscript c:\windows\system32\slmgr.vbs -ato

echo @

echo @

echo @ 

echo @ 若是出現Product activated successfully訊息，

echo @ 代表Windows 7作業系統已經啟用成功，

echo @ 提醒您，每180天必須將系統重新啟用一次！！

echo @

echo @ 本程式僅限縣內國中小使用，

echo @ 有任何問題，請直接洽詢彰化縣網中心。

echo @ 祝您使用愉快！

echo @ 彰化縣網中心  

echo. 

timeout /t 2

目的：完成Office2010 認證後兩秒自動關閉

檔案名稱：chcoffice2010_kms.bat

內容：

@echo off

timeout /t 2

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

echo 偵測 Microsoft Office 2010 安裝目錄

set OfficePath="C:\Program Files\Microsoft Office\Office14\"

if exist "C:\Program Files (x86)\Microsoft Office\Office14\ospp.vbs" set OfficePath="C:\Program Files (x86)\Microsoft Office\Office14\"

For /F "tokens=2 delims=[]" %%G in ('ver') Do (set _version=%%G) 

For /F "tokens=2 delims=. " %%G in ('echo %_version%') Do (set _major=%%G) 

if "%_major%"=="5" (echo 重啟 KMS 金鑰管理伺服器

cscript %OfficePath%ospp.vbs /osppsvcrestart)

echo 設定 KMS 金鑰管理伺服器

cscript %OfficePath%ospp.vbs /sethst:163.23.200.140

cscript %OfficePath%ospp.vbs /setprt:1688

echo 啟動 Microsoft Office 2010

cscript %OfficePath%ospp.vbs /act

echo 啟動程序執行完成

echo 請注意: 上方(約前五行)需有 Product activation successful 出現,

echo 才表示您的 Office2010 啟動成功!

timeout /t 2

目的：完成Office2013 認證後兩秒自動關閉

檔案名稱：chcoffice2013_kms.bat

內容：

@echo off

timeout /t 2

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

echo 偵測 Microsoft Office 2013 安裝目錄

set OfficePath="C:\Program Files\Microsoft Office\Office15\"

if exist "C:\Program Files (x86)\Microsoft Office\Office15\ospp.vbs" set OfficePath="C:\Program Files (x86)\Microsoft Office\Office15\"

For /F "tokens=2 delims=[]" %%G in ('ver') Do (set _version=%%G) 

For /F "tokens=2 delims=. " %%G in ('echo %_version%') Do (set _major=%%G) 

if "%_major%"=="5" (echo 重啟 KMS 金鑰管理伺服器

cscript %OfficePath%ospp.vbs /osppsvcrestart)

echo 設定 KMS 金鑰管理伺服器

cscript %OfficePath%ospp.vbs /sethst:163.23.200.140

cscript %OfficePath%ospp.vbs /setprt:1688

echo 啟動 Microsoft Office 2013

cscript %OfficePath%ospp.vbs /act

echo 啟動程序執行完成

echo 請注意: 上方(約前五行)需有 Product activation successful 出現,

echo 才表示您的 Office2013 啟動成功!

timeout /t 2

目的：完成Office2016 認證後兩秒自動關閉

檔案名稱：chcoffice2016_kms.bat

內容：

@echo off

timeout /t 2

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

echo 偵測 Microsoft Office 2016 安裝目錄

set OfficePath="C:\Program Files\Microsoft Office\Office16\"

if exist "C:\Program Files (x86)\Microsoft Office\Office16\ospp.vbs" set OfficePath="C:\Program Files (x86)\Microsoft Office\Office16\"

For /F "tokens=2 delims=[]" %%G in ('ver') Do (set _version=%%G) 

For /F "tokens=2 delims=. " %%G in ('echo %_version%') Do (set _major=%%G) 

if "%_major%"=="5" (echo 重啟 KMS 金鑰管理伺服器

cscript %OfficePath%ospp.vbs /osppsvcrestart)

echo 設定 KMS 金鑰管理伺服器

cscript %OfficePath%ospp.vbs /sethst:163.23.200.140

cscript %OfficePath%ospp.vbs /setprt:1688

echo 啟動 Microsoft Office 2016

cscript %OfficePath%ospp.vbs /act

echo 啟動程序執行完成

echo 請注意: 上方(約前五行)需有 Product activation successful 出現,

echo 才表示您的 Office2016 啟動成功!

timeout /t 2

目的：完成Office2019 認證後兩秒自動關閉

檔案名稱：chcoffice2019_kms.bat

內容：

@echo off

timeout /t 2

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

echo 偵測 Microsoft Office 2019 安裝目錄

set OfficePath="C:\Program Files\Microsoft Office\Office16\"

if exist "C:\Program Files (x86)\Microsoft Office\Office16\ospp.vbs" set OfficePath="C:\Program Files (x86)\Microsoft Office\Office16\"

For /F "tokens=2 delims=[]" %%G in ('ver') Do (set _version=%%G) 

For /F "tokens=2 delims=. " %%G in ('echo %_version%') Do (set _major=%%G) 

if "%_major%"=="5" (echo 重啟 KMS 金鑰管理伺服器

cscript %OfficePath%ospp.vbs /osppsvcrestart)

echo 設定 KMS 金鑰管理伺服器

cscript %OfficePath%ospp.vbs /sethst:163.23.200.140

cscript %OfficePath%ospp.vbs /setprt:1688

echo 啟動 Microsoft Office 2019

cscript %OfficePath%ospp.vbs /act

echo 啟動程序執行完成

echo 請注意: 上方(約前五行)需有 Product activation successful 出現,

echo 才表示您的 Office2019 啟動成功!

timeout /t 2

資料來源：

1.只要滑鼠點兩下，就可以完成彰化縣網中心Windows與office認證

https://skjhcreator.blogspot.com/2021/10/windowsoffice.html

2.只要滑鼠點兩下，讓電腦開機自動完成彰化縣Windows KMS認證

https://skjhcreator.blogspot.com/2021/10/windows-kms.html

3.只要滑鼠點兩下，讓BAT自動判別Office版本進行彰化縣Office KMS 認證

https://skjhcreator.blogspot.com/2021/10/batofficeoffice-kms.html

4.只要滑鼠點兩下，讓電腦開機自動判別Office版本並進行彰化縣Office KMS 認證

https://skjhcreator.blogspot.com/2021/10/officeoffice-kms.html

5.如何在Bat 檔案中睡眠或等待X 秒

https://www.delftstack.com/zh-tw/howto/batch/how-to-sleep-or-wait-x-seconds-in-a-bat-file/

6.如何在批次檔(Batch)中實現 sleep 命令讓任務暫停執行 n 秒

https://blog.miniasp.com/post/2009/06/24/Sleep-command-in-Batch

7.如何在 Bat 檔案中睡眠或等待 X 秒

https://www.delftstack.com/zh-tw/howto/batch/how-to-sleep-or-wait-x-seconds-in-a-bat-file/

只要滑鼠點兩下，讓電腦開機自動完成彰化縣Office 與Windows KMS 雙認證

   系列文章：

1.只要滑鼠點兩下，就可以完成彰化縣網中心Windows與office認證

2.只要滑鼠點兩下，讓電腦開機自動完成彰化縣Windows KMS認證

3.只要滑鼠點兩下，讓BAT自動判別Office版本進行彰化縣Office KMS 認證

4.只要滑鼠點兩下，讓電腦開機自動判別Office版本並進行彰化縣Office KMS 認證

5.只要滑鼠點兩下，讓電腦開機自動完成彰化縣Office 與Windows KMS 雙認證

6.只要滑鼠點兩下，讓電腦開機自動完成彰化縣 KMS 雙認證暫停兩秒後自動關閉認證畫面

          由於彰化縣KMS將於2021年11月1日停止服務，資訊組就人仰馬翻要去處理電腦Windows與Office認證。希望能夠只要滑鼠點兩下，讓電腦開機時就完成Windows與Office雙認證，不需要資訊組再去處理。那如果想要電腦開機時就完成Windows與Office雙認證，也只要點兩下就好。

範例檔案下載，解壓密碼demo1234

教學影片

        此外，針對縣網版本Office認證BAT，進行比對。發現chcoffice2016_kms.bat 與 chcoffice2019_kms.bat 的內容 只有6與9的差別。換言之，office2019的認證可以用chcoffice2016_kms.bat 進行認證。

目的：電腦開機自動完成彰化縣Office 與Windows KMS 雙認證
檔案名稱：AutoChcDoubleCerti.bat
內容：

@echo off

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

REM -------------------關閉UAC------------------------

rem reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "EnableLUA" /d 0 /t REG_DWORD /f

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "ConsentPromptBehaviorAdmin" /d 0 /t REG_DWORD /f

gpupdate /force

taskkill /f /im explorer.exe

start %systemroot%\explorer

REM -------------------將縣網Win10認證複製到Startup------------------------

copy "%~dp0\KMS\chcwin10_kms.bat" "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

REM -------------------暫停2秒------------------------

timeout /t 2 /nobreak

REM -------------------判別Office版本------------------------

for /l %%a in (8,1,16) do (

for /f "tokens=*" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Office\%%a.0\Word\Options" /v "PROGRAMDIR"') do (if not "%%i"=="" set Ever=%%a))

cls&echo %Ever%

echo %Ever%

if %Ever%==14 (goto office2010)

if %Ever%==15 (goto office2013)

if %Ever%==16 (goto office2016)

:office2010

copy "%~dp0\KMS\chcoffice2010_kms.bat" "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

shutdown /r /f /t 0

exit

:office2013

copy "%~dp0\KMS\chcoffice2013_kms.bat" "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

shutdown /r /f /t 0

exit

:office2016

copy "%~dp0\KMS\chcoffice2016_kms.bat" "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

shutdown /r /f /t 0

exit

目的：移除電腦開機自動完成彰化縣Office 與Windows KMS 雙認證
檔案名稱：RemoveAutoChcDoubleCerti.bat
內容：

@echo off

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

REM -------------------開啟UAC------------------------

rem reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "EnableLUA" /f

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "ConsentPromptBehaviorAdmin" /d 5 /t REG_DWORD /f

gpupdate /force

taskkill /f /im explorer.exe

start %systemroot%\explorer

REM -------------------刪除Startup縣網Win10認證------------------------

del "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\chcwin10_kms.bat"

REM -------------------刪除Startup縣網Office認證------------------------

REM -------------------判別Office版本------------------------

for /l %%a in (8,1,16) do (

for /f "tokens=*" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Office\%%a.0\Word\Options" /v "PROGRAMDIR"') do (if not "%%i"=="" set Ever=%%a))

cls&echo %Ever%

echo %Ever%

if %Ever%==14 (goto office2010)

if %Ever%==15 (goto office2013)

if %Ever%==16 (goto office2016)

:office2010

del "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\chcoffice2010_kms.bat"

shutdown /r /f /t 0

exit

:office2013

del "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\chcoffice2013_kms.bat"

shutdown /r /f /t 0

exit

:office2016

del "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\chcoffice2016_kms.bat"

shutdown /r /f /t 0

exit

資料來源：

1.只要滑鼠點兩下，就可以完成彰化縣網中心Windows與office認證

https://skjhcreator.blogspot.com/2021/10/windowsoffice.html

2.只要滑鼠點兩下，讓電腦開機自動完成彰化縣Windows KMS認證

https://skjhcreator.blogspot.com/2021/10/windows-kms.html

3.只要滑鼠點兩下，讓BAT自動判別Office版本進行彰化縣Office KMS 認證

https://skjhcreator.blogspot.com/2021/10/batofficeoffice-kms.html

4.只要滑鼠點兩下，讓電腦開機自動判別Office版本並進行彰化縣Office KMS 認證

https://skjhcreator.blogspot.com/2021/10/officeoffice-kms.html

5.如何在Bat 檔案中睡眠或等待X 秒

https://www.delftstack.com/zh-tw/howto/batch/how-to-sleep-or-wait-x-seconds-in-a-bat-file/

6.如何在批次檔(Batch)中實現 sleep 命令讓任務暫停執行 n 秒

https://blog.miniasp.com/post/2009/06/24/Sleep-command-in-Batch

只要滑鼠點兩下，讓電腦開機自動判別Office版本並進行彰化縣Office KMS 認證

 系列文章：

1.只要滑鼠點兩下，就可以完成彰化縣網中心Windows與office認證

2.只要滑鼠點兩下，讓電腦開機自動完成彰化縣Windows KMS認證

3.只要滑鼠點兩下，讓BAT自動判別Office版本進行彰化縣Office KMS 認證

4.只要滑鼠點兩下，讓電腦開機自動判別Office版本並進行彰化縣Office KMS 認證

5.只要滑鼠點兩下，讓電腦開機自動完成彰化縣Office 與Windows KMS 雙認證

6.只要滑鼠點兩下，讓電腦開機自動完成彰化縣 KMS 雙認證暫停兩秒後自動關閉認證畫面

          由於彰化縣KMS將於2021年11月1日停止服務，資訊組就人仰馬翻要去處理電腦Windows與Office認證。希望能夠只要滑鼠點兩下，讓電腦開機時就完成Office KMS認證，不需要資訊組再去處理。那如果不想要電腦開機時就完成Office KMS認證，也只要點兩下就好。

範例檔案下載，解壓密碼demo1234

使用教學影片：

        此外，針對縣網版本Office認證BAT，進行比對。發現chcoffice2016_kms.bat 與 chcoffice2019_kms.bat 的內容 只有6與9的差別。換言之，office2019的認證可以用chcoffice2016_kms.bat 進行認證。

目的：電腦開機自動判別Office版本並進行彰化縣Office KMS 認證
檔案名稱：AutoChcOfficeVerCerti.bat
內容：

@echo off

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

REM -------------------關閉UAC------------------------

rem reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "EnableLUA" /d 0 /t REG_DWORD /f

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "ConsentPromptBehaviorAdmin" /d 0 /t REG_DWORD /f

gpupdate /force

taskkill /f /im explorer.exe

start %systemroot%\explorer

REM -------------------判別Office版本------------------------

for /l %%a in (8,1,16) do (

for /f "tokens=*" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Office\%%a.0\Word\Options" /v "PROGRAMDIR"') do (if not "%%i"=="" set Ever=%%a))

cls&echo %Ever%

echo %Ever%

if %Ever%==14 (goto office2010)

if %Ever%==15 (goto office2013)

if %Ever%==16 (goto office2016)

:office2010

copy "%~dp0\KMS\chcoffice2010_kms.bat" "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

shutdown /r /f /t 0

exit

:office2013

copy "%~dp0\KMS\chcoffice2010_kms.bat" "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

shutdown /r /f /t 0

exit

:office2016

copy "%~dp0\KMS\chcoffice2010_kms.bat" "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

shutdown /r /f /t 0

exit

目的：移除電腦開機自動判別Office版本並進行彰化縣Office KMS 認證

檔案名稱：RemoveAutoChcOfficeVerCerti.bat

內容：

@echo off

REM ---------------以下是程式碼,不需更改---------------

REM :: BatchGotAdmin (Run as Admin code starts)

REM --> Check for permissions

>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"

REM --> If error flag set, we do not have admin.

if '%errorlevel%' NEQ '0' (

echo Requesting administrative privileges...

goto UACPrompt

) else ( goto gotAdmin )

:UACPrompt

echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"

echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"

"%temp%\getadmin.vbs"

exit /B

:gotAdmin

if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

pushd "%CD%"

CD /D "%~dp0"

REM :: BatchGotAdmin (Run as Admin code ends)

REM :: Your codes should start from the following line

REM -------------------開啟UAC------------------------

rem reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "EnableLUA" /f

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "ConsentPromptBehaviorAdmin" /d 5 /t REG_DWORD /f

gpupdate /force

taskkill /f /im explorer.exe

start %systemroot%\explorer

REM -------------------刪除Startup縣網Office認證------------------------

REM -------------------判別Office版本------------------------

for /l %%a in (8,1,16) do (

for /f "tokens=*" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Office\%%a.0\Word\Options" /v "PROGRAMDIR"') do (if not "%%i"=="" set Ever=%%a))

cls&echo %Ever%

echo %Ever%

if %Ever%==14 (goto office2010)

if %Ever%==15 (goto office2013)

if %Ever%==16 (goto office2016)

:office2010

del "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\chcoffice2010_kms.bat"

shutdown /r /f /t 0

exit

:office2013

del "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\chcoffice2010_kms.bat"

shutdown /r /f /t 0

exit

:office2016

del "%HomePath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\chcoffice2010_kms.bat"

shutdown /r /f /t 0

exit

資料來源：
1.Windows 10 如何關閉 UAC
https://www.hackercat.org/windows/windows-10-how-to-disable-uac

2.