请问用VB怎么样改变本地系统的IP配置,如:IP地址,网关,DNS等等??

Question

我这里的校园网上网要用几种不同的配置,每次手工更改很麻烦,想自己编写一个小程序实现切换,请问哪位高手DX告知....不胜感激!!!

Answer 1

调用一下函数：Function ChangeIP(IP As String, NM As String, GW As String) As String
'If MsgBox("no to exit", vbYesNo) = vbNo Then End
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask
Dim strGateway, strGatewaymetric, objNetAdapter, errEnable, errGateways
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) '网关
strGatewaymetric = Array(1)
 
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    If errEnable = 0 Then
        ChangeIP = "OK"
    Else
        ChangeIP = "FIN"
    End If
NextEnd Function在XP、2003上通过。