strInputFileName = Wscript.Arguments(0) | |
strOutputFileName = Wscript.Arguments(1) | |
strOldText = Wscript.Arguments(2) | |
strNewText = Wscript.Arguments(3) | |
Set objFSO = CreateObject("Scripting.FileSystemObject") | |
Set objFile = objFSO.OpenTextFile(strInputFileName, 1) | |
strText = objFile.ReadAll | |
objFile.Close | |
strNewText = Replace(strText, strOldText, strNewText) | |
Set objFile = objFSO.OpenTextFile(strOutputFileName, 2, True) | |
objFile.Write strNewText | |
objFile.Close |