[系统相关] 批处理如何更改系统网关（已解决）

qq3475534

求助，批处理如何自动更改系统win7 和win10网关，网卡名字并非一定是本地连接，也有可能是其他名字，


后面网上也找到了一段VBS代码也可以 代码如下

无视系统里面几个网卡，活动网卡，直接更改，也感谢论坛另外的两位朋友帮助。

Const T_GATEWAY = "192.168.0.254" '网关 
Const T_NEWDNS1 = "202.96.128.166" 'DNS1 
Const T_NEWDNS2 = "8.8.8.8" 'DNS2 
strWinMgmt="winmgmts:{impersonationLevel=impersonate}" 
Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration") 
For Each NIC In NICS 
       If NIC.IPEnabled Then 
              NIC.SetDNSServerSearchOrder Array(T_NEWDNS1,T_NEWDNS2) 
'              NIC.SetDNSServerSearchOrder Array(T_NEWDNS1) 
              NIC.SetGateways Array(T_GATEWAY) 
       End If 
Next 
复制代码

qq3475534

回复 2# czjt1234


    非常完美 ，感谢。

qq3475534

回复 3# flashercs


    提示找不到元素

flashercs

@echo off
for /f "tokens=5-6" %%A in ('netsh int ipv4 show route ^|findstr /lc:" 0.0.0.0/0 "') do (
  netsh int ipv4 set route 0.0.0.0/0 %%A 172.23.112.1
)
pause
复制代码

czjt1234

如果只有一个网卡

rem 另存为 ANSI 编码 bat
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit /b

DefaultIPGateway = Array("192.168.0.254")    '网关

Set oWMI = GetObject("Winmgmts:\\.\Root\CIMV2")
s = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
For Each i In oWMI.ExecQuery(s)
    i.SetGateways DefaultIPGateway
Next
复制代码