关于批改IP设置和NDS设置

2013-01-04

关于修改IP设置和NDS设置Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String,

关于修改IP设置和NDS设置

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服务器地址  怎么处理？

[解决办法]
可否考虑清除前先的设置,再用  Set winIP = CreateObject("MSWinsock.Winsock") 获得呢?
[解决办法]
这种事其实不必兴师动众的, 简单两句语句就能解决:

shell"netsh -c interface dump >  IPADD.txt"  '这句用来将IP设置导出到配置文件

shell"netsh -f IPADD.txt"  '这句用来将配置文件文本导入IP设置

IPADD.txt的内容如下:

#========================
# 接口配置
#========================
pushd interface

reset all


popd
# 接口配置结束

#========================
# 接口配置
#========================
pushd interface ipv6

uninstall


popd
# 接口配置结束



# ----------------------------------
# ISATAP 配置
# ----------------------------------
pushd interface ipv6 isatap



popd
# ISATAP 配置结束



# ----------------------------------
# 6to4 配置
# ----------------------------------
pushd interface ipv6 6to4

reset



popd
# 6to4 配置结束

#=============
# 端口代理配置
#=============
pushd interface portproxy

reset


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获得.

热点排行

VB

关于批改IP设置和NDS设置