Foros Club Delphi - Cambiar direcciones IP y DNS de tarjeta red desde delphi

Hola amigos!!!

Encontré la solución en la página http://msdn.microsoft.com/library/de...figuration.asp; está muy bien explicado como funciona el WMI (Windows Management Instrument), lo que pasa es que está escrito el código en Visual Basic.

Aquí inserto el código para cambiar direcciones IP y DNS sin necesidad de ir a propiedades de la conexión de red de windows:

Código:

strComputer = "."  ''''''el punto significa computadora local

strNetConn = "Conexión de área local"   '''''''nombre de la connexión de red



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



Set colNics = objWMIService.ExecQuery("SELECT * FROM " & "Win32_NetworkAdapter WHERE NetConnectionID = '" & strNetConn & "'")



If colNics.Count > 0 Then    ''''si hay alguna connexión llamada 'Conexión de área local'

  For Each objNic in colNics

    Set colNicConfigs = objWMIService.ExecQuery ("ASSOCIATORS OF " & _

                "{Win32_NetworkAdapter.DeviceID='" & objNic.DeviceID & "'}" & " WHERE AssocClass=Win32_NetworkAdapterSetting")

                

      For Each objNicConfig In colNicConfigs

        WScript.Echo VbCrLf & "Tipus d'adaptador:" & objNic.AdapterType & "   Nombre de la connexión:" & objNic.NetConnectionID

                          

        If Not IsNull(objNicConfig.IPAddress) Then

          For Each strIPAddress in objNicConfig.IPAddress

            Wscript.Echo "   Adreça IP: " & strIPAddress

             strIPAddress = Array("172.16.0.20")

             strSubnetMask = Array("255.255.0.0")        

        strGateway=Array("172.16.0.1")

        strGatewayMetric = Array(1)   '''''si es (0) NO requiere reiniciar, si es (1) SÍ

        strDNS = Array(("50.88.10.43"),("50.88.12.56"))

                                        

        errEnable = objNicConfig.EnableStatic(strIPAddress, strSubnetMask)        errGateway=objNicConfig.SetGateways(strGateway, strGatewaymetric)

        errDNS = objNicConfig.SetDNSServerSearchOrder(strDNS)

          Next

        End If

      Next 

   Next

Else

  WScript.Echo "No se puede encontrar el NetconnectID con nombre '" & strNetConn & "'." & _

  VbCrLf & "Si tiene el Windows 2000 o anteriores, la propiedad NetConnectionID no está habilitada."

End If

Este código lo escribo en el NOTEPAD.EXE, guardo cambios, renombro el archivo a "miarchivo.VBS" y lo ejecuto, y veréis como cambian las IP y DNS que le habéis dado.

Espero que sirva.