Const ForReading = 1
Const ForWriting = 2

Set FSO = CreateObject("Scripting.FileSystemObject")
Set inFile = FSO.OpenTextFile("gpu/b288.inc", 1)

str = inFile.ReadAll
inFile.Close

newStr = Replace(str, "DEBUG_SHADER_ID", "0")

Set outFile = FSO.OpenTextFile("gpu/b288.inc", 2)
outFile.Write newStr
outFile.Close