关于修改IP设置和NDS设置

Question

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)    '网关
    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)
        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
    
End Function
Private Sub Command1_Click()
    MsgBox ChangeIP("192.168.1.12", "255.255.255.0", "192.168.1.1", "8.8.8.8", "8.8.4.4")
End Sub如上，可以设置IP和DNS了，现在有个问题，如果我要还原设置成   自动获得P地址    和 自动获得NDS服务器地址  怎么处理？

Answer 1

可否考虑清除前先的设置,再用  Set winIP = CreateObject("MSWinsock.Winsock") 获得呢?

Answer 2

这种事其实不必兴师动众的, 简单两句语句就能解决:shell"netsh -c interface dump >  IPADD.txt"  '这句用来将IP设置导出到配置文件shell"netsh -f IPADD.txt"  '这句用来将配置文件文本导入IP设置IPADD.txt的内容如下:#========================
# 接口配置
#========================
pushd interfacereset all
popd
# 接口配置结束#========================
# 接口配置
#========================
pushd interface ipv6uninstall
popd
# 接口配置结束# ----------------------------------
# ISATAP 配置
# ----------------------------------
pushd interface ipv6 isatappopd
# ISATAP 配置结束# ----------------------------------
# 6to4 配置
# ----------------------------------
pushd interface ipv6 6to4resetpopd
# 6to4 配置结束#=============
# 端口代理配置
#=============
pushd interface portproxyreset
popd
# 端口代理配置结束# ---------------------------------- 
# 接口 IP 配置         
# ---------------------------------- 
pushd interface ip
# "无线网络连接" 的接口 IP  配置set address name="无线网络连接" source=static addr=192.168.1.3 mask=255.255.255.0
set address name="无线网络连接" gateway=192.168.1.1 gwmetric=0
set dns name="无线网络连接" source=static addr=192.168.1.1 register=PRIMARY
set wins name="无线网络连接" source=static addr=none# "本地连接" 的接口 IP  配置set address name="本地连接" source=dhcp 
set dns name="本地连接" source=dhcp register=PRIMARY
set wins name="本地连接" source=dhcp
popd
# 接口 IP 配置结束
其中#开头的皆可忽略(删除)
例子中列出了两个连接, 一个无线有IP和一个有线的自动IP获得.

Answer 3

TXT的内容为第一个命令自动生成,你只要用文本方式编辑它就可以了.