Cómo girar una dirección IP con VBA

Aprender a configurar automáticamente una dirección IP para girar utilizando Visual Basic para aplicaciones no es tan difícil como usted puede pensar. Netsh.exe es una herramienta que se puede utilizar para configurar los ordenadores que utilizan el símbolo del sistema de Windows. Netsh.exe se puede usar para cambiar una dirección IP cuando se necesita rotación. La función de "Shell" se utiliza en VBA para ejecutar un programa ejecutable, tales como el símbolo del sistema para ejecutar Netsh.exe.

Instrucciones

1 Lanzamiento de Microsoft Office Excel, haga clic en la pestaña "desarrolladores" y haga clic en "Visual Basic" para abrir el Editor de VBA.

2 Haga clic en el menú "Insertar" y haga clic en "Módulo" para insertar un nuevo módulo de código.

3 Agregue el código siguiente para crear un nuevo procedimiento de substitución:

Private Sub rotateIPAddress ()

4 Definir dos variables de cadena:

Dim como secuencia dosCommand
Dim como secuencia ipAddress

5 Establecer la dirección IP que desea utilizar agregando la siguiente línea de código:

IPADDRESS = "192.168.0.200"

6 Definir el comando para cambiar la dirección IP:

dosCommand = "set dns netsh interface ip" & Chr (34) & "Nombre NIC" & Chr (34) & "estática" y ipAddress

7 Ejecutar el comando con el comando "Shell":

Shell ( "cmd.exe / c" y dosCommand)

8 Tipo "End Sub" para terminar el procedimiento sub y pulse la tecla "F5" para ejecutarlo.