批处理修改网络参数怎样设置DNS和metric？

7Qp

下面这坨是我弄的一个修改网络参数的批，有几个问题
1.修改次要DNS该怎么弄
2.修改DNS的时候总是会提示提供的DNS参数不正确，这是啥原因
3.对metric怎么处理比较合理，现在是跳过这项，直接设成1

1. @echo off
   
2. :select_int
   
3. cls
   
4. set cnt=0
   
5. echo 请选择网络接口
   
6. echo.
   
7. echo         0.退出
   
8. for /f "tokens=4,5 delims= " %%i in ('netsh int ip sh int') do (
   
9.         if "%%i"=="connected"  call :int_list %%j
   
10.         )
    
11. echo.
    
12. set /p s_int=选择（1-%cnt%，0=退出）：
    
13. if "%s_int%"=="" goto select_int
    
14. set tmp=0
    
15. set delm=%tmp%
    
16. :get_list_count
    
17.         if not %tmp%==%cnt% (
    
18.                 call :get_lc
    
19.                 goto get_list_count
    
20.                 )
    
21. 
    
22. for /f "tokens=1 delims=%delm%" %%a in ('echo %s_int:~0,1%') do (
    
23.         if not "%%a"=="" echo 输入有误 && pause>nul && goto select_int)
    
24. if "%s_int:~0,1%"=="0" goto :eof
    
25. set chint=%s_int:~0,1%
    
26. set/a cnt=0
    
27. for /f "tokens=4,5 delims= " %%i in ('netsh int ip sh int') do (
    
28.         if "%%i"=="connected"  call :int_list2 %%j
    
29.         )
    
30. 
    
31. set newip=
    
32. set newms=
    
33. set newgw=
    
34. set newdn=
    
35. :show_int
    
36. cls
    
37. echo 网络接口"%c_int%"的参数
    
38. echo.
    
39. echo         0.退出
    
40. for /f "tokens=3 delims=: " %%i in ('netsh int ip sh addr "%c_int%"^|findstr "IP 地址"') do (echo         1.IP 地 址：%%i        -        %newip% && set ip=%%i)
    
41. for /f "tokens=4 delims=:) " %%j in ('netsh int ip sh addr "%c_int%"^|findstr "子网前缀"') do (echo         2.子网掩码：%%j        -        %newms% && set ms=%%j)
    
42. for /f "tokens=2 delims=: " %%k in ('netsh int ip sh addr "%c_int%"^|findstr "默认网关"') do (echo         3.网    关：%%k        -        %newgw% && set gw=%%k)
    
43. for /f "tokens=2 delims=: " %%l in ('netsh int ip sh addr "%c_int%"^|findstr "网关跃点数"') do (echo         4.跃 点 数：%%l && set mr=1)
    
44. for /f "tokens=4 delims=: " %%m in ('netsh int ip sh dns "%c_int%"^|findstr "DNS 服务器"') do (echo         5.主要 DNS：%%m        -        %newdn% && set dn=%%m)
    
45. echo         6.确认参数并退出
    
46. echo.
    
47. set /p cid=选择对应编号修改参数（1-5，0=不保存退出，6=保存修改并退出）：
    
48. if "%cid%"=="" goto show_int
    
49. for /f "tokens=1 delims=0123456" %%a in ('echo %cid:~0,1%') do (
    
50.         if not "%%a"=="" echo 输入有误 && pause>nul && goto show_int)
    
51. if "%cid:~0,1%"=="0" goto :eof
    
52. if "%cid:~0,1%"=="6" goto confimpara
    
53. if "%cid:~0,1%"=="4" goto show_int
    
54. call :newpara %cid:~0,1%
    
55. goto show_int
    
56. 
    
57. :confimpara
    
58. echo.
    
59. echo.
    
60. echo.
    
61. if not "%newip%"=="" set ip=%newip%
    
62. if not "%newms%"=="" set ms=%newms%
    
63. if not "%newgw%"=="" set gw=%newgw%
    
64. if not "%newdn%"=="" set dn=%newdn%
    
65. echo 错误信息：（如无提示即正确）
    
66. netsh int ip set addr %c_int% static %ip% %ms% %gw% %mr%
    
67. netsh int ip set dns %c_int% static %dn% primary
    
68. echo.
    
69. echo.
    
70. echo.
    
71. pause
    
72. goto :eof
    
73. 
    
74. :newpara
    
75.         if "%1"=="1" set str=IP地址
    
76.         if "%1"=="2" set str=子网掩码
    
77.         if "%1"=="3" set str=网关
    
78.         if "%1"=="5" set str=主DNS服务器地址
    
79.         set /p newp=请输入新%str%：
    
80.         if "%newp%"=="" goto :eof
    
81.         for /f "tokens=1 delims=0123456789." %%a in ('echo %newp%') do (
    
82.                 if not "%%a"=="" echo 输入有误
    
83.                 pause>nul
    
84.                 set/a newp=
    
85.                 goto :eof
    
86.                 )
    
87.         for /f "tokens=1,2,3,4,5 delims=." %%b in ('echo %newp%') do (
    
88.                 if %%b lss 0 (echo 第一位小于0&&pause>nul&&set/a newp=)
    
89.                 if %%b gtr 255 (echo 第一位大于255&&pause>nul&&set/a newp=)
    
90.                 if %%c lss 0 (echo 第二位小于0&&pause>nul&&set/a newp=)
    
91.                 if %%c gtr 255 (echo 第二位大于255&&pause>nul&&set/a newp=)
    
92.                 if %%d lss 0 (echo 第三位小于0&&pause>nul&&set/a newp=)
    
93.                 if %%d gtr 255 (echo 第三位大于255&&pause>nul&&set/a newp=)
    
94.                 if %%e lss 0 (echo 第四位小于0&&pause>nul&&set/a newp=)
    
95.                 if %%e gtr 255 (echo 第四位大于255&&pause>nul&&set/a newp=)
    
96.                 if not "%%f"==""  (echo 输入有误&&pause>nul&&set/a newp=)
    
97.                 )
    
98.         if "%1"=="1" set newip=%newp%
    
99.         if "%1"=="2" set newms=%newp%
    
100.         if "%1"=="3" set newgw=%newp%
     
101.         if "%1"=="5" set newdn=%newp%
     
102. goto :eof
     
103. 
     
104. :int_list
     
105.         set /a cnt+=1
     
106.         echo         %cnt%.%1
     
107. goto :eof
     
108. 
     
109. :int_list2
     
110.         set /a cnt+=1
     
111.         if "%cnt%"=="%chint%" set c_int=%1
     
112. goto :eof
     
113. 
     
114. :get_lc
     
115.         set /a tmp+=1
     
116.         set delm=%delm%%tmp%
     
117. goto :eof
     
118. 
     
119. :eof

复制代码