Cómo utilizar vb6.0 para escribir direcciones IP modificables, puerta de enlace y otros parámetros
----
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)