Subscribe to Zinmag Tribune
Subscribe to Zinmag Tribune
Subscribe to Zinmag Tribune by mail

Trucos Para Windows (5ª Parte)

12:34 p. m. Publicado por Federico

El siguiente truquito (cortesía de Homer) es muy util para toda la gente que les gusta descargar archivos sin límte y para los que ven películas online y no quieren que se las corte a la mitad. La cosa consiste en cambiar el IP (que basicamente vendría a ser el número que identifica a la computadora en la red), con solo hacer doble click e un ícono que crearemos.
Como soy muyyyyy bueno les dejo dos opcione por si alguna de las dos no les funciona. Quedense tranquilo que el método es seguro.
Para las dos opciones hay que hacer el mismo procedimiento, lo unico que cambia es el codigo que le pongamos. Abrir el Bloc de Notas y pegar el siguiente texto:

@echo off
ipconfig /release
cls
color 4a
echo Desconecta el modem.
pause
cls
ipconfig /renew
cls
color a4
echo Conectalo de nuevo.
pause
ipconfig
cls
color 4a
echo ­Ya ten‚s una nueva IP!
echo Si lo publicas, menciona la fuente.
echo Saludos de ilpapa...
pause
la otra opcion es poner este otro código:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.102.133")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.102.254")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "La IP a sido cambiada correctamente."
Else
WScript.Echo "La IP no se ha podido cambiar."
End If
Next

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
arrDNSServers = Array("192.168.102.2", "194.179.1.100")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next

A continuación lo que haremos es guardar el archivo en el escritorio con cualquier nombre que desiemos pero que en el final tenga la siguiente extensión: .vbs
Y listo. Con hacer doble click en el script que hemos creado podremos cambiar el número de IP de nuestra computadora.

You can leave a response, or trackback from your own site.

0 Response to "Trucos Para Windows (5ª Parte)"

Publicar un comentario

Video del Momento: