VB程序中实现IP地址子网掩码网关DNS的更改 [转]

最新推荐文章于 2021-05-01 22:53:16 发布

miaozk2006

最新推荐文章于 2021-05-01 22:53:16 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/miaozk2006/article/details/82416870

该博客分享了一段VB代码，用于在VB程序中更改计算机的IP地址、子网掩码、默认网关和DNS设置。通过启用静态IP配置、设置网关和DNS服务器搜索顺序，实现了网络配置的修改。

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

代码如下：

Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String
    '返回值说明:返回一个设置的中文说明.
    Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask
    Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery("Select   *   from   Win32_NetworkAdapterConfiguration   where   IPEnabled=TRUE")
    strIPAddress = Array(IP)       'ip地址
    strSubnetMask = Array(NM)       '子网掩码
    strGateway = Array(GW)       '网关
    MsgBox TypeName(strGateway)
    strDNS = Array(MDNS, SDNS)         '主DNS各备DNS

strGatewaymetric = Array(1)

    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
        errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS) 'DNS为空的话，改为errDNS = objNetAdapter.SetDNSServerSearchOrder()
        If errEnable = 0 And errGateways = 0 And errDNS = 0 Then
            ChangeIP = "设置成功"
        Else
            If errEnable = 0 Then
                ChangeIP = "IP地址和子网掩码设置成功,   "
            Else
                ChangeIP = "IP地址或子网掩码设置失败,   "
            End If
            If errGateways = 0 Then
                ChangeIP = ChangeIP & "默认网关设置成功,   "
            Else
                ChangeIP = ChangeIP & "默认网关设置失败,   "
            End If
            If errDNS = 0 Then
                ChangeIP = ChangeIP & "DNS设置成功"
            Else
                ChangeIP = ChangeIP & "DNS设置失败"
            End If
        End If
    Next