VBScript 修改网络IP地址

### 使用 VBScript 修改 Windows 网络 IP 地址

为了修改 Windows 中的网络适配器 IP 地址，可以使用 WMI（Windows Management Instrumentation），这是一种管理数据和操作操作系统组件的技术。下面是一个详细的说明以及一段用于更改指定网卡 IP 地址的 VBScript 示例。

#### 方法描述

WMI 提供了一个名为 `Win32_NetworkAdapterConfiguration` 的类来配置网络接口。此服务允许获取有关特定网络连接的信息，并对其进行重新配置，比如设置静态 IP 或启用 DHCP[^4]。

#### 示例代码

以下是具体的 VBScript 实现：

Option Explicit

Dim objWMIService, colNetAdapters, objNetAdapter, strComputer, arrIPAddress, arrSubnetMask, errEnableStatic

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

' 获取所有可用的网络适配器集合
Set colNetAdapters = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
    ' 这里可以根据MAC地址或其他条件筛选目标网卡
    If Not IsNull(objNetAdapter.MACAddress) Then
        
        ' 设置新的IP地址和子网掩码数组
        arrIPAddress = Array("192.168.0.1")  ' 新的IP地址
        arrSubnetMask = Array("255.255.255.0")  ' 对应的新子网掩码
        
        ' 应用新配置
        errEnableStatic = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)

        If errEnableStatic = 0 Then
            MsgBox "成功设置了静态IP"
        Else
            MsgBox "设置失败：" & CStr(errEnableStatic)
        End If
    
    End If
Next

这段脚本遍历所有的活动网络适配器，并尝试为它们分配一个新的静态 IP 和相应的子网掩码。实际应用中应当根据实际情况调整 IP 地址和其他参数。此外，在运行此类脚本之前，请确保拥有足够的管理员权限以防止潜在的安全风险。