使用Windows Script快速更改本机IP地址设置

本文介绍了一个批处理脚本,用于批量更改计算机的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

else

    msgbox ("Operation Cancelled by User")

end if 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值