VB llama al problema de IP del proxy

Cambio de función públicaIP(IP como cadena, NM como cadena, GW como cadena, MDNS como cadena, SDNS como cadena) Como cadena

'Descripción del valor de retorno: devuelve la descripción china de la configuración.

Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask

Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS

strComputer = "." .

Establecer objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Establecer colNetAdapters = objWMIService.ExecQuery ("Seleccione * de Win32_NetworkAdapterConfiguration donde IPEnabled= TRUE")

strIPAddress = Array(IP) 'Dirección IP

strSubnetMask = Array(NM ) 'Máscara de subred

strGateway = Array(GW) 'Puerta de enlace

strDNS = Array(MDNS, SDNS) 'DNS principal y DNS de respaldo

strGatewaymetric = Array(1)

Para cada objNetAdapter en colNetAdapters

errEnable = objNetAdapter.SetDNSServerSearchOrder(strDNS)

Si errEnable = 0 y errGateways = 0 y errDNS = 0 entonces

ChangeIP = "Configuración exitosa"

De lo contrario

Si errEnable = 0 Entonces

ChangeIP = "La dirección IP y la máscara de subred se configuraron correctamente",

ChangeIP = "Dirección IP y la configuración de la máscara de subred fue exitosa",

ChangeIP = "La dirección IP y la máscara de subred se configuraron exitosamente.

Else

ChangeIP = "Error al configurar la dirección IP o la máscara de subred",

Finalizar si

Si errGateways = 0 Entonces

ChangeIP = ChangeIP & "La puerta de enlace predeterminada se configuró correctamente",

Else

ChangeIP = ChangeIP &"La puerta de enlace predeterminada se configuró correctamente",

Finalizar si

Si errDNS = 0 Entonces

ChangeIP = ChangeIP & "Configuración de DNS exitosa"

De lo contrario

ChangeIP = ChangeIP & "Falló la configuración de DNS"

Finalizar si

Finalizar función

Principio:

Modificar el registro

HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\Services\\\\Tcpip\\\\\Parameters\\Interfaces\\

Bajo.

DirecciónIP=(dirección IP)