Const adTypeText=2
Const adSaveCreateOverWrite=2
Const adSaveCreateNotExist=1 
help="<имя файла1> <текст1> <имя файла2> <текст2>" & vbCRLF & vbCRLF & _
			"<имя файла1> - имя исходного файла." & vbCRLF & _
			"<текст1> - текст, для поиска в <имя файла1>" & vbCRLF & _
			"<имя файла2> - имя выходного файла." & vbCRLF & _
			"<текст2> - текст, на который будет заменен <текст1>" & vbCRLF

'Обработка параметров командной строки.
Set objArgs = WScript.Arguments
count=objArgs.Count
if count=0 then 
	wscript.echo help
	WScript.Quit
else
	if count=4 then
	  	fname1=objArgs(0)
		txt1=objArgs(1)
	  	fname2=objArgs(2)
		txt2=objArgs(3)
	else
		Wscript.echo "Не достаточно аргументов"
		WScript.Quit
	End if
End if

'Создаем стрим для чтения двоичного файла
set oStream = createobject("Adodb.Stream")
oStream.type = adTypeText
oStream.Charset = "windows-1251"
oStream.Open
oStream.LoadFromFile fname1
fc=oStream.ReadText
oStream.close

bidx=1
idx=instr(bidx,fc,txt1,1)
Do While idx>0 
	str=str & Mid(fc,bidx,idx-bidx) & txt2
	bidx=idx+Len(txt2)
	idx=instr(bidx,fc,txt1,1)
Loop
if Not bidx=1 then 
	str=str & right(fc,Len(fc)+1-bidx)
End if

'Создаем стрим для записи двоичного файла
oStream.type = adTypeText
oStream.Charset = "windows-1251"
oStream.open
oStream.WriteText=str
oStream.SaveToFile fname2, 1