Script to replace specified property value. Usage : replace.vbs ${filename} ${key} ${value}

replace.vbs

Option Explicit

Dim targetFile, propName, propValue 
targetFile = WScript.Arguments(0)
propName = WScript.Arguments(1)
propValue = WScript.Arguments(2)


Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")


Dim objTS, content, line
Set objTS = objFS.OpenTextFile(targetFile, 1, 0)
While objTS.AtEndOfStream = 0

  line = objTS.ReadLine

  If InStr(line, propName) <> 0 Then

    line = propName & "=" & propValue

    WScript.Echo "Property Changed : " & line

  End If

  content = content & line & vbNewLine

Wend
objTS.Close


WScript.Echo content


'
' Uncomment to replace the input file
'
' Set objTS = objFS.CreateTextFile(targetFile, true)
' objTS.Write(content)
' objTS.Close