[Eloy58]

Hola amig@s.

Hace unos días encontré una forma para insertar los cambios en el archivo HOSTS de forma automática ... Necesario para activar CS5

Se trata de 2 archivos [1 .bat y 1 .vbs] que se complementan y que podemos hacer nosotros mismos con el editor de texto.

1º - Vamos a crear el archivo .bat, abrimos nuestro editor de texto y escribimos: Host.CS5.vbs

Lo guardamos con el nombre que queramos y la extensión .bat; por ejemplo: EJECUTAR.bat

Este archivo solo sirve para lanzar al archivo .vbs, que es el que verdaderamente va a modificar el archivo HOST

2º - Ahora crearemos el archivo .vbs, igualmente abrimos nuestro editor de texto y ...

... copiamos y pegamos lo que hay escrito aquí abajo:

Spoiler:

Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 hostsFile = objShell.ExpandEnvironmentStrings("%SystemRoot%") & "\system32\drivers\etc\hosts" Dim aHosts(16,1) aHosts(0,0) = "127.0.0.1" aHosts(0,1) = "3dns-2.adobe.com" aHosts(1,0) = "127.0.0.1" aHosts(1,1) = "3dns-3.adobe.com" aHosts(2,0) = "127.0.0.1" aHosts(2,1) = "activate.adobe.com" aHosts(3,0) = "127.0.0.1" aHosts(3,1) = "activate.wip3.adobe.com" aHosts(4,0) = "127.0.0.1" aHosts(4,1) = "activate-sea.adobe.com" aHosts(5,0) = "127.0.0.1" aHosts(5,1) = "activate-sjc0.adobe.com" aHosts(6,0) = "127.0.0.1" aHosts(6,1) = "adobe-dns.adobe.com" aHosts(7,0) = "127.0.0.1" aHosts(7,1) = "adobe-dns-2.adobe.com" aHosts(8,0) = "127.0.0.1" aHosts(8,1) = "adobe-dns-3.adobe.com" aHosts(9,0) = "127.0.0.1" aHosts(9,1) = "adobeereg.com" aHosts(10,0) = "127.0.0.1" aHosts(10,1) = "ereg.adobe.com" aHosts(11,0) = "127.0.0.1" aHosts(11,1) = "ereg.wip3.adobe.com" aHosts(12,0) = "127.0.0.1" aHosts(12,1) = "hl2rcv.adobe.com" aHosts(13,0) = "127.0.0.1" aHosts(13,1) = "practivate.adobe.com" aHosts(14,0) = "127.0.0.1" aHosts(14,1) = "wip3.adobe.com" aHosts(15,0) = "127.0.0.1" aHosts(15,1) = "wwis-dubc1-vip60.adobe.com" aHosts(16,0) = "127.0.0.1" aHosts(16,1) = "www.adobeereg.com" For i = 0 To UBound(aHosts,1) strIP = aHosts(i,0) strValue = aHosts(i,1) Set objTextFile = objFSO.OpenTextFile(hostsFile, ForReading) strFlag = 0 Do Until objTextFile.AtEndOfStream strLine = Trim(objTextFile.ReadLine) If InStr(strLine, strIP) > 0 Then If InStr(strLine, strValue) > 0 Then strFlag = "1" End If End If Loop objTextFile.Close If strFlag = 0 Then Set objTextFile = objFSO.OpenTextFile(hostsFile, ForAppending) If i = 0 Then objTextFile.WriteLine VbCrlf & "# Disable Adobe CS5 validation servers" End if objTextFile.WriteLine strIP & VbTab & strValue objTextFile.Close End If Next Set objTextFile = Nothing Set objFSO = Nothing Set objShell = Nothing

Guardamos junto al otro archivo con el nombre: Host.CS5.vbs

Para usarlo, bastará con dar doble clic en el archivo EJECUTAR.bat, y automáticamente el archivo HOSTS quedará modificado.

Un saludo.