Modifier un ficher

 FileName = "test.reg"
   FindStr = """name""" & "=" & """BAM201""" 
  ReplaceWith = """Name"""  & "=" & """BAM20x""" 

'Read source text file
FileContents = GetFile(FileName)

'replace all string In the source file
dFileContents = replace(FileContents, FindStr, ReplaceWith, 1, -1, 1)

'Compare source And result
if dFileContents <> FileContents Then
  'write result If different
  WriteFile FileName, dFileContents

  Wscript.Echo "Replace done."
  If Len(ReplaceWith) <> Len(FindStr) Then 'Can we count n of replacements?
    Wscript.Echo _
    ( (Len(dFileContents) - Len(FileContents)) / (Len(ReplaceWith)-Len(FindStr)) ) & _
    " replacements."
  End If
Else
  Wscript.Echo "Text :" & FindStr & "  non présent dans le fichier"
End If

'Read text file
function GetFile(FileName)
  If FileName<>"" Then
    Dim FS, FileStream
    Set FS = CreateObject("Scripting.FileSystemObject")
      on error resume Next
      Set FileStream = FS.OpenTextFile(FileName)
      GetFile = FileStream.ReadAll
  End If
End Function

'Write string As a text file.
function WriteFile(FileName, Contents)
  Dim OutStream, FS

  on error resume Next
  Set FS = CreateObject("Scripting.FileSystemObject")
    Set OutStream = FS.OpenTextFile(FileName, 2, True)
    OutStream.Write Contents
End Function

@echo off

setlocal enabledelayedexpansion

set "$Fichier=test.reg"

(for /f "delims=" %%a in ('type "%$Fichier%"') do (
  set "$ligne=%%a"
  set "$ligne=!$ligne:%~1=%~2!
  echo !$ligne!)
)>sortie.reg