17 lines
455 B
Plaintext
17 lines
455 B
Plaintext
Const ForReading = 1
|
|
Const ForWriting = 2
|
|
|
|
strFileName = Wscript.Arguments(0)
|
|
strOldText = Wscript.Arguments(1)
|
|
strNewText = Wscript.Arguments(2)
|
|
|
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
|
Set objFile = objFSO.OpenTextFile(strFileName, ForReading)
|
|
|
|
strText = objFile.ReadAll
|
|
objFile.Close
|
|
strNewText = Replace(strText, strOldText, strNewText)
|
|
|
|
Set objFile = objFSO.OpenTextFile(strFileName, ForWriting)
|
|
objFile.Write strNewText
|
|
objFile.Close |