czjt1234

如果只有一块网卡，可以这样

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

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

czjt1234

如果有多块网卡，可以指定连接名称
比如指定 本地连接

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

Set oWMI = GetObject("Winmgmts:\\.\Root\CIMV2")
For Each i In oWMI.InstancesOf("Win32_NetworkAdapter")
    If i.NetConnectionID = "本地连接" Then s = i.MACAddress
Next
s = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress = '" & s & "'"
For Each i In oWMI.ExecQuery(s)
    i.EnableStatic Filter(i.IPAddress, "."), Filter(i.IPSubnet, ".")
    i.SetGateways Filter(i.DefaultIPGateway, ".")
    i.SetDNSServerSearchOrder i.DNSServerSearchOrder
Next
复制代码