使用Windows Script快速更改本机IP地址设置-优快云博客

本文链接：https://blog.youkuaiyun.com/the3gwireless/article/details/1686336

本文介绍了一个批处理脚本，用于批量更改计算机的IP地址配置，包括静态IP地址、子网掩码、默认网关和DNS服务器等信息。脚本通过Windows Management Instrumentation (WMI) 接口操作网络适配器配置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有的时候，我们需要经常更换本机IP地址，比如设置使用不同的代理服务器等：

可以使用以下的脚本：

Rem Script created: 24.04.2007 09:54
Rem Author: Sam Huang

strComputer = "."
strAnswer=MsgBox ("Use 192.168.20.57 / 24?" & vbCrLf & vbCrLf & "If not, you''ll be prompted to specify", vbYesNoCancel)

if strAnswer = vbYes then

    Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
    Set colNetAdapters = objWMIService.ExecQuery _
            ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    strIPAddress = Array("192.168.20.57")
    strSubnetMask = Array("255.255.255.0")
    strGateway = Array("192.168.20.1")
arrDNSServers = Array("192.168.1.10")
    strGatewayMetric = Array(1)
    For Each objNetAdapter in colNetAdapters
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
        If errEnable = 0 Then
            WScript.Echo "The IP address has been changed."
        Else
            WScript.Echo "The IP address could not be changed."
        End If
    Next

elseif strAnswer = vbNo then
        Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
            Set colNetAdapters = objWMIService.ExecQuery _
                    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
            strIPAddress = Array("192.168.20.57")
            strSubnetMask = Array("255.255.255.0")
            strGateway = Array("192.168.20.2")
          arrDNSServers = Array("192.168.1.10")
            strGatewayMetric = Array(1)
            For Each objNetAdapter in colNetAdapters
                errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
                errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
            objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
                If errEnable = 0 Then
                    WScript.Echo "The IP address has been changed."
                Else
                    WScript.Echo "The IP address could not be changed."
                End If
            Next