Alterar caracteres variados para um caracter

[pedro_herpeto]

Criei 02 VBS a fim de alterar diversos caracteres por apenas um.

Entretanto, tive que criar um bat pra rodar em sequencia o VBS 1 e dps o 2.

Como faço isso em apenas um vbs? Gostaria de unificar o comando.

VBS 1

strArquivo_Original = "i.txt"
strArquivo_Novo = "i_0.txt"

strProcurada = "02"
strNova = "00"


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

VBS 2:

strArquivo_Original = "i.txt"
strArquivo_Novo = "i_0.txt"

strProcurada = "01"
strNova = "00"


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

Pedro