Cómo utilizar vb6.0 para escribir direcciones IP modificables, puerta de enlace y otros parámetros

La idea es muy simple, pero es más complicada y difícil de usar. Busque el nombre de la tarjeta de red local (encuentre una manera usted mismo. La interfaz predeterminada que debe cambiarse aquí es "Conexión local").

----

intname = "Conexión de área local"

ip = InputBox("ip")

submask = InputBox("submask" )

gateway = "Dirección IP, puerta de enlace y otros parámetros"

gateway = "Dirección IP, puerta de enlace y otros parámetros. p>submask = InputBox("submask")

gateway = InputBox("gateway")

p>

dns = InputBox("dns")

Abrir App.Path & "\int-" & intname & " . config" Para salida como #1

'///// Generar script

Imprimir #1, "pushd interface ip"

Imprimir #1, " establecer nombre de dirección = ""conexión local"" fuente = dirección estática = " amp; ip amp; " máscara = " amp; submáscara

Imprimir #1, "establecer nombre de dirección = ""conexión local"" gateway = " gateway amp " gwmetric = 1"

Imprimir #1, "set dns name = ""conexión local"" source = static addr = " dns

'\\\ \ Se ha generado el script y su contenido no se puede cambiar

Cerrar #1

Shell "netsh exec " amp App.Path amp "\int-" amp; ; intname amp; ".config", vbhide

-----

Cuestiones que deben estudiarse

1-Cómo obtener el número y nombre de la tarjeta de red

p>

2-El cambio lleva un tiempo, por lo que es mejor que el shell agregue una función ESPERA

3-Verifique el número y el nombre de la tarjeta de red

3-Verificar el número y nombre de la tarjeta de red Sería una buena idea p>

3-Verificar entradas, solucionar errores

== ====

tampoco otorga puntos, solo se aplica a sistemas 2000 (y posteriores)