就在今天,在家裡突然無法連上彰化縣網所有服務與教師在職進修網。改了DNS為8.8.8.8與168.95.1.1後就可以連上了。那有沒有可以讓老師只要點兩下,就能變更班級電腦的DNS。同時,只要資訊組長變更內部的設定而不用變更程式碼,就能完成設定。
那資訊組只要將程式壓縮檔掛在校網,讓老師自行下載在班級電腦,解壓縮後就可以點兩下,完成設定。那到底要怎麼做呢?下載檔案。解壓密碼:demo1234
教學影片:
將檔案下載後,解壓縮後,就可以看到以下的畫面
教師只要對DnsSetting.BAT點兩下,即可完成設定
資訊組長則要進入Profile資料夾,就可以看到[設定DNS.txt]。只要對[設定DNS.txt]修改內容,儲存。就可以完成設定。
檔案名稱:設定DNS.txt
檔案內容:
168.95.1.1,8.8.8.8
檔案名稱:DnsSetting.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
for /f "tokens=1,2 delims=," %%a in (%~dp0/Profile/設定DNS.txt) do (
set dns01=%%a
set dns02=%%b
)
netsh interface ip set dns "乙太網路" static %dns01%
netsh interface ip add dns "乙太網路" %dns02%
PAUSE
EXIT