VBS:write and read file

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