Buen día para Ustedes,

Tengo un programa .vbs que cambia un archivo existente en la siguiente ruta:

%APPDATA%
 y dentro de esa ruta está el directorio Postgres.

De ahí debo agregar una línea al archivo pgpass.conf.

De acuerdo a una valiosa ayuda que me brindó un usuario de este foro, modifiqué un nuevo archivo teniendo en cuenta la recomendación del forista.

El nuevo archivo quedó de la siguiente manera:

Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("PROCESS")
Env = WshSysEnv("APPDATA")  // lmodifiqué la variable de entorno
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Env & "\postgres\pgpass.conf",  ForReading)      '   // Cambie la ruta de acuerdo a la variable especificada arriba
OriginalData =   f.ReadAll
ReplaceData = Replace(OriginalData, " ", "localhost:5432:BDRPFZ:postgres:salud%1357administrada", 1, -1, 1)  // En el archivo no hay nada escrito, debo colocar la línea que menciono al lado
Set f = fso.OpenTextFile(Env & "\postgres\pgpass.conf", ForWriting, True)   '
f.Write ReplaceData

Pero desafortunadamente, no me sirve . Dice que hay un error en la línea 7.  Esta línea es donde estoy abriendo el archivo (Env & "\postgres\pgpass.conf").

Si alguien sabe en qué estoy fallando, les agradecería inmensamente. 

Cordialmente