Copiar valor de uma variavel de uma arquivo para variavel do script

[cahh74]

Bom dia,

Tenho um arquivo cps onde preciso copiar o valor  value destas linhas:

<setting name="authorization_username" value="789"/>

<setting name="display_name" value="789"/>

<setting name="username" value="789"/>

 

E alterar pelo valor que o usuário insere no script. O Script que tenho é o seguinte:

strInput = InputBox ("Digite seu ramal")
Const FOR_READING = 1
Const FOR_WRITING = 2

Set wshShell = CreateObject( "WScript.Shell" )
strFileName = wshShell.ExpandEnvironmentStrings( "%userprofile%" ) & "\AppData\Local\CounterPath\RegNow Enhanced\default_user\settings.cps"

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)
strContents = objTS.ReadAll
objTS.Close

Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)

strContents = Replace(strContents, "789", strInput)
objTS.WriteLine strContents
objTS.Close

 

Até então ele funciona, porém ele deve rodar com mais usuários e o valor não vai ser sempre "789", deverá ser o valor que existe dentro daquele arquivo e naquela variável.

Por exemplo se value for 1000 e o usuário inserir 500, o script deverá alterar para 500.

A minha dúvida é como alterar isso a partir do valor que possuo no arquivo, pois pelo replace eu consigo alterar a partir do valor que já estou passando no código.

Como posso fazer isso?