DNS快捷修改脚本

zhaodll

1. @echo off
   
2. title 改DNS:输入1则将4.2.2.1设为主DNS；输入2则将223.6.6.6设为主DNS。
   
3. %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
   
4. echo Microsoft Windows [Version 10.0.19041.207]
   
5. echo (c) 2020 Microsoft Corporation. All rights reserved.
   
6. echo.
   
7. echo CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptFullName) >%Temp%\Wait.vbs
   
8. echo wscript.sleep 1500 >>%Temp%\Wait.vbs
   
9. start /wait %Temp%\Wait.vbs
   
10. echo Connecting...
    
11. echo CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptFullName) >%Temp%\Wait.vbs
    
12. echo wscript.sleep 3000 >>%Temp%\Wait.vbs
    
13. start /wait %Temp%\Wait.vbs
    
14. echo.
    
15. 
    
16. :home
    
17. set /p input="[guest@107.*.*.21 ~]#^C:\Users\%username%>"
    
18. if "%input%"=="1" goto 4
    
19. if "%input%"=="2" goto 2
    
20. if "%input%"=="help" goto help
    
21. if not "%input%"=="1" if not "%input%"=="2" if not "%input%"=="help" goto ex
    
22. 
    
23. :help
    
24. echo       DNS远程修改插件简介、、
    
25. echo 》可以从服务器来连接本地，获取管理员权限并修改DNS的插件！
    
26. echo 》本插件开源，禁止售卖！
    
27. echo 》插件特点：自定义输入检测、自定义DNS、开源免费！
    
28. echo 》安全易用！
    
29. echo 》禁止用于商业用途！禁止用于违反国家法律的用途！
    
30. goto home
    
31. 
    
32. :4
    
33. ::判断本地连接 赋值a
    
34. for /f "tokens=3,4 delims== " %%i in ('ipconfig ^|findstr /r "以"') do echo %%i %%j >DNS.txt
    
35. for /f "tokens=3,4 delims== " %%i in ('ipconfig ^|findstr /r "本"') do echo %%i %%j >DNS.txt
    
36. for /f "tokens=1 delims==:" %%d in (DNS.txt) do set a=%%d
    
37. ::dns的值
    
38. echo 开始更改主dns
    
39. netsh interface ip set dns name="%a%" source=static addr=4.2.2.1
    
40. echo 完成!
    
41. echo 开始更改副dns
    
42. netsh interface ip add dns name="%a%" addr=223.6.6.6 index=2
    
43. del DNS.txt
    
44. echo 已将4.2.2.1设为 %a% 的主DNS！
    
45. pause
    
46. exit
    
47. 
    
48. :2
    
49. ::判断本地连接 赋值a
    
50. for /f "tokens=3,4 delims== " %%i in ('ipconfig ^|findstr /r "以"') do echo %%i %%j >DNS.txt
    
51. for /f "tokens=3,4 delims== " %%i in ('ipconfig ^|findstr /r "本"') do echo %%i %%j >DNS.txt
    
52. for /f "tokens=1 delims==:" %%d in (DNS.txt) do set a=%%d
    
53. ::dns的值
    
54. echo 开始更改主dns
    
55. netsh interface ip set dns name="%a%" source=static addr=223.6.6.6
    
56. echo 完成!
    
57. echo 开始更改副dns
    
58. netsh interface ip add dns name="%a%" addr=4.2.2.1 index=2
    
59. del DNS.txt
    
60. echo 已成功将233.6.6.6设为 %a% 的主DNS！
    
61. pause
    
62. exit
    
63. 
    
64. :ex
    
65. echo '%input%' is not recognized as an internal or external command,
    
66. echo operable program or batch file.
    
67. goto home

复制代码

快速修改DNS：将代码复制，然后新建一个文件，后缀改为bat，运行即可