angustias69
Becerro
- Desde
- 19 Feb 2010
- Mensajes
- 2
- Tema Autor
- #1
Abrir un Notepad copia y pega lo siguiente
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
ip = Array("192.168.1.10")
mascara = Array("255.255.255.0")
gw = Array("192.168.1.254")
gwmetric = Array(1)
dns = Array("207.248.57.10", "207.248.57.11")
For Each objNetAdapter in colNetAdapters
errip = objNetAdapter.EnableStatic(ip, mascara)
errgw = objNetAdapter.SetGateways(gw, gwmetric)
errdns = objNetAdapter.SetDNSServerSearchOrder(dns)
Next
If (errip = 0) AND (errgw = 0) AND (errdns = 0) Then
WScript.Echo "IP, mascara, gateway y DNS asignados con exito"
Else
WScript.Echo "Ha ocurrido algun error"
End If
Recuerda guardar el archivo con *.VBS
es recomendable que hagas uno o varios de estos scripts
de una ip y otra asi cambiaras de ip de una a otra sin abrir las propiedades de red
util para aquellas personas que tienen internet restringido...asi se piratean la ip del compañero y no los pescaran con las propiedades de red abiertas...y no les diran que estas haciendo...
:metal:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
ip = Array("192.168.1.10")
mascara = Array("255.255.255.0")
gw = Array("192.168.1.254")
gwmetric = Array(1)
dns = Array("207.248.57.10", "207.248.57.11")
For Each objNetAdapter in colNetAdapters
errip = objNetAdapter.EnableStatic(ip, mascara)
errgw = objNetAdapter.SetGateways(gw, gwmetric)
errdns = objNetAdapter.SetDNSServerSearchOrder(dns)
Next
If (errip = 0) AND (errgw = 0) AND (errdns = 0) Then
WScript.Echo "IP, mascara, gateway y DNS asignados con exito"
Else
WScript.Echo "Ha ocurrido algun error"
End If
Recuerda guardar el archivo con *.VBS
es recomendable que hagas uno o varios de estos scripts
de una ip y otra asi cambiaras de ip de una a otra sin abrir las propiedades de red
util para aquellas personas que tienen internet restringido...asi se piratean la ip del compañero y no los pescaran con las propiedades de red abiertas...y no les diran que estas haciendo...
:metal:
