[已解决]宏可以设置电脑的ip吗？？

xdwy81129

如题，不知道可以实现用宏设置本地连接里面的ip不，希望可以实现
ip设置如下：


另，如果可以设置，那有怎么取消上面的设置，而让ip全部显示为“自动获得”

最佳答案

月排行榜 / 总排行榜

吕?布

2011-4-23 19:45

Sub Set_Static()
    Dim objWMIService, colNetAdapters, objNetAdapter
    Dim strIPAddress, strSubnetMask, strGateway, strGatewaymetric, strDNS
    Dim errEnable, errGateways, errDNS
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration " _
            & "where IPEnabled=TRUE")
    strIPAddress = Array("192.168.1.101")
    strSubnetMask = Array("255.255.255.0")
    strGateway = Array("192.168.1.1")
    strGatewaymetric = Array(1)
'    strDNS = Array("10.10.10.10", "10.10.10.11")
    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
        errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
    Next
End Sub

跳转到最佳答案楼层

放浪形骸

好像应该是调用外部的API了。

xdwy81129

希望可以解决问题，顶顶

sunjing-zxl

高难度问题了，搞不懂了

sunjing-zxl

高难度问题了，搞不懂了

吕?布

Sub Set_Static()
    Dim objWMIService, colNetAdapters, objNetAdapter
    Dim strIPAddress, strSubnetMask, strGateway, strGatewaymetric, strDNS
    Dim errEnable, errGateways, errDNS
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration " _
            & "where IPEnabled=TRUE")
    strIPAddress = Array("192.168.1.101")
    strSubnetMask = Array("255.255.255.0")
    strGateway = Array("192.168.1.1")
    strGatewaymetric = Array(1)
'    strDNS = Array("10.10.10.10", "10.10.10.11")
    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
        errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
    Next
End Sub

xdwy81129

回复 吕?布 的帖子

太感谢吕布大侠了，还差一个宏，就是去掉ip设置，设置成自动



感谢

wbzxz

相当专业啊。

吕?布

Sub Set_AutoGetIP()
' 设置为自动获取IP
    Dim objWMIService, colNetAdapters, objNetAdapter
    Dim lDHCP As Long
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    For Each objNetAdapter In colNetAdapters
        lDHCP = objNetAdapter.EnableDHCP()    ' 自动获得IP 地址
        If lDHCP > 0 Then Debug.Print objNetAdapter.MACAddress & "设为自动获得IP地址"
    Next
End Sub