VBscript skriv til fil virker ikke???

Følgende er indsat i min headersection:

<SCRIPT LANGUAGE=\"VBScript\">
    <!--   
    Function Writefile
      Dim fso, f1
      Const ForReading = 1
      Set fso = CreateObject(\"Scripting.FileSystemObject\")
      Set f1 = fso.openTextFile(\"c:\\testfile.txt\", true)
        Document.Write \"Writing file <br>\"
      f1.WriteLine \"Hello World\"
      f1.WriteBlankLines(1)
      f1.Close
    End Function
    -->
</script>




kalder den med:

<a href=\"VBscript:Writefile()\">Skriv til ugeplanen</a>