Executar comandos VBS sequenciais

[pedro_herpeto]

Bom dia, sou novo em VBS e no fórum.

Estou criando uma rotina para alterar caracteres em um texto.

Tenho 02 caracteres, sendo A e B. A precisa se tornar B, e B precisa se tornar A.

Entretanto criei 03 VBS que são executados sequencialmente através de um .bat. A se torna X, B se torna A, e X se torna B.

Como faço pra unificar os 03 arquivos vbs, em apenas 01 arquivo e fazer essa alteração em um passo?

arquivo bat

@echo off
cls
@echo Iniciando processo...
start d_1.vbs
pause
start d_2.vbs
pause
start d_3.vbs
@echo Arquivo criado com sucesso.
pause
exit

arquivo d_1.vbs

strArquivo_Original = "D.txt"

strArquivo_Novo = "D_1.txt"

strProcurada = "A"

strNova = "X"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile_Original = objFSO.OpenTextFile(strArquivo_Original, 1)

Set objFile_Novo = objFSO.CreateTextFile(strArquivo_Novo)

Do Until objFile_Original.AtEndOfStream

strLinha = objFile_Original.ReadLine

objFile_Novo.writeline replace(strLinha,strProcurada,strNova)

Loop

arquivo d_2.vbs

objFile_Original.Close

objFile_Novo.Close

strArquivo_Original = "D_1.txt"

strArquivo_Novo = "D_2.txt"

strProcurada = "B"

strNova = "A"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile_Original = objFSO.OpenTextFile(strArquivo_Original, 1)

Set objFile_Novo = objFSO.CreateTextFile(strArquivo_Novo)

Do Until objFile_Original.AtEndOfStream

strLinha = objFile_Original.ReadLine

objFile_Novo.writeline replace(strLinha,strProcurada,strNova)

Loop

arquivo d_3.vbs

strArquivo_Original = "D_2.txt"
strArquivo_Novo = "D_F.txt"

strProcurada = "X"
strNova = "B"


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile_Original = objFSO.OpenTextFile(strArquivo_Original, 1)
Set objFile_Novo = objFSO.CreateTextFile(strArquivo_Novo)


Do Until objFile_Original.AtEndOfStream

strLinha = objFile_Original.ReadLine

objFile_Novo.writeline replace(strLinha,strProcurada,strNova)

Loop

objFile_Original.Close
objFile_Novo.Close

objFSO.Deletefile strArquivo_Original

desde já, agradeço!