function ReadAllTextFile()
{
    var ForReading = 1, ForWriting = 2;
    var fso = new ActiveXObject("Scripting.FileSystemObject");

    // Open the file for output.
    var filename = "c:\\testfile.txt";

    var f = fso.OpenTextFile(filename, ForWriting, true);

    // Write to the file.
    f.Write("Header");
    f.Write("1234567890987654321");
    f.Close();

    // Open the file for input.
    f = fso.OpenTextFile(filename, ForReading);

    // Read from the file.
    if (f.AtEndOfStream)
        return ("");
    else
        return (f.ReadAll());
}

Function ReadAllTextFile
    Const ForReading = 1, ForWriting = 2
    Dim fso, MyFile, FileName

    Set fso = CreateObject("Scripting.FileSystemObject")

    ' Open the file for output.   
    FileName = "c:\testfile.txt"
    Set MyFile = fso.OpenTextFile(FileName, ForWriting, True)
    
    ' Write to the file.
    MyFile.Write "Header"
    MyFile.Write "1234567890987654321"
    MyFile.Close

    ' Open the file for input.
    Set MyFile = fso.OpenTextFile(FileName, ForReading)

    ' Read from the file.
    If MyFile.AtEndOfStream Then
        ReadAllTextFile = ""
    Else
        ReadAllTextFile = MyFile.ReadAll
    End If
End Function