Vereis tengo un pequeño codigo cogido a trozos de una help que me baje sobre VBS.
Lo que intento es la modificacion de un archivo, he conseguido que me meta en una variable lo que yo pedia del texto (archiv.txt) Pero ahora lo que me gustaria hacer es hacer un replace() osea reemplazar lo que tengo en mi variable por otra cosa, y mas o menos he echo algo, pero me sustituye el texto entero por la unica palabra que quiero reemplazar. Osea que si tenia un archiv.txt de 400 lineas de texto me lo reemplaza por una simple palabra en total. Weno aqui os pongo el codigo.
valor1="Mes"
valor2=Month(Now)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f9 = fso.GetFile("archiv.txt")
Set f8 = f9.OpenAsTextStream(1, 0)
linear = f8.Readline
set mirem = New regexp
mirem.pattern = linear
mirem.global = true
set remat = mirem.Execute(linear)
echorem=mirem.replace("valor1","valor2")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f9 = fso.GetFile("archiv.txt")
Set f8 = f9.OpenAsTextStream(2, -2)
f8.write echorem
f8.close
Tengo que tener una exageracion de errores, pero es xq practicamente he echo un copy&paste y he io modificando y probando. Aun asi nada 
