fileName = "f.txt"
content = "blank context"
Dim objFSO
Set objFSO = CreateObject("scripting.filesystemobject")
absFileName = objFSO.GetAbsolutePathName(fileName)
Dim objStream
Set objStream = objFSO.CreateTextFile(fileName, True)
objStream.WriteLine(content)
objStream.Close
Dim objFile
Set objFile = objFSO.OpenTextFile(absFileName)
wscript.echo objFile.ReadAll