(imported comment written by Rafael Rodriguez)
I use a vbs to introduce lines.
On Error Resume Next
'#####################################################################################################
'# FUNCION: ESCRIBE EN C:\WINDOWS\SYSTEM32\DRIVER\ETC\HOSTS
'#
'# REALIZADO: RAFAEL RODRIGUEZ AND RUBEN ESPINOSA
'#
'# VERSION: 1.2
'#
'#
'#####################################################################################################
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set WshNetwork = WScript.CreateObject(“WScript.Network”)
Set WshArguments = WScript.Arguments
Set WshShell = WScript.CreateObject(“WScript.Shell”)
server = WshShell.ExpandEnvironmentStrings("%SERVIDOR%")
host = “C:\WINDOWS\system32\drivers\etc\hosts”
config = server&"\etc\hosts\hosts"
contenido =""
filtro = “”
salida=""
'####################################################
’ MI FICHERO
'####################################################
If fso.FileExists (config) Then
Set f1 = fso.OpenTextFile (config,1,False)
Set f2 = fso.OpenTextFile (host,1,False)
temp = ""
contenido = f2.ReadAll
f2.Close
Do While f1.AtEndOfStream <> True
temp =f1.ReadLine
If InStr (temp,"#") <> 1 Then ' COMPARA LA VARIABLE Y SI LA LINEA NO CONTIENE # THEN
'WScript.Echo InStr (1,contenido,temp)
If InStr (1,temp, "remplazar") <> 0 Then 'BUSCA LA FUNCION REMPLAZAR
pos1 = InStr (1,temp,"10")
'MsgBox pos1
pos2 = InStr (pos1, temp," ")
ip_anterior = Mid (temp,pos1,pos2-pos1)
pos3 = InStr (pos2,temp,"10")
pos4 = Len (temp)+1
ip_despues = Mid (temp,pos3,pos4-pos3)
If InStr (1,contenido,ip_despues) = 0 Then
Set f2 = fso.OpenTextFile (host,2,False)
tt = Replace (contenido,ip_anterior,ip_despues)
f2.Write tt
f2.Close
End If
End If
If InStr (1,temp, "meter") <> 0 Then
Set f2 = fso.OpenTextFile (host,8,False)
pos5 = InStr (1,temp,"10")
pos6 = Len (temp)+1
ip_into = Mid (temp,pos5,pos6-pos5)
If InStr (1,contenido,ip_into) = 0 Then 'SI NO EXISTE INTRODUCE CAMPO
WScript.Echo ip_into
f2.WriteBlankLines (1)
f2.Write ip_into
f2.Close
End if
End If
End If
Loop
f1.Close
End if