Option Explicit

Const ForAppending = 8


Dim arrSourceFiles
Dim strString4Find
Dim strString4Replace
Dim boolIsCaseReplacing
Dim boolIsLogging
Dim strPath2LogFile

Dim objFSO
Dim strSourceFile
Dim strContent
Dim boolFound


arrSourceFiles      = Array( _
	"C:\Folder 1\File.php", _
	"C:\Folder 2\Folder3\File.txt", _
	"C:\File.ini" _
)

strString4Find      = "10.10.10.10"
strString4Replace   = "11.11.11.11"
boolIsCaseReplacing = True

boolIsLogging       = True
strPath2LogFile     = "C:\replace.log"


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If boolIsLogging Then
	If Not objFSO.FolderExists(objFSO.GetParentFolderName(strPath2LogFile)) Then
		WScript.Echo "Can't find logging folder [" & objFSO.GetParentFolderName(strPath2LogFile) & "]."
		WScript.Quit 1
	End If
End If

For Each strSourceFile In arrSourceFiles
	If objFSO.FileExists(strSourceFile) Then
		With objFSO.OpenTextFile(strSourceFile)
			strContent = .ReadAll()
			.Close
		End With
		
		boolFound = False
		
		If boolIsCaseReplacing Then
			If InStr(1, strContent, strString4Find, vbTextCompare) > 0 Then
				boolFound  = True
				strContent = Replace(strContent, strString4Find, strString4Replace, 1, -1, vbTextCompare)
			End If
		Else
			If InStr(1, strContent, strString4Find, vbBinaryCompare) > 0 Then
				boolFound  = True
				strContent = Replace(strContent, strString4Find, strString4Replace, 1, -1, vbBinaryCompare)
			End If
		End If
		
		If boolFound Then
			With objFSO.CreateTextFile(strSourceFile, True)
				.Write strContent
				.Close
			End With
			
			LogOut "Found [" & strString4Find & "] in source file [" & _
				strSourceFile & "] and replaced by [" & strString4Replace & "]."
		Else
			LogOut "Nothing found in source file [" & strSourceFile & "]."
		End If
	Else
		LogOut "Can't find source file [" & strSourceFile & "]."
	End If
Next

Set objFSO = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub LogOut(strValue)
	WScript.Echo strValue
	
	If boolIsLogging Then
		With objFSO.OpenTextFile(strPath2LogFile, ForAppending, True)
			.WriteLine Now() & vbTab & strValue
			.Close
		End With
	End If
End Sub
'=============================================================================