vbscript runtime error

[drhowarddrfine]

I've been running this VBScript, gracefully written by InsertAlias, for two days now and it's been perfect. Tonight, for no reason at all, it fails with this error:

Windows Script Host
Line:7
Char:1
Error:Permissio n denied
Code:800a0046
Source:Microsof t VBScript runtime error

'define vars 
url = "http://google.com"
path = "C:\temp.txt"
'instantiate
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.OpenTextFile(path, 2, True)
Set oWS = WScript.CreateObject("WScript.Shell")
'make request
xmlhttp.open "GET", url, false
xmlhttp.send ""
'wait for response
xmlhttp.waitForResponse()
'if status is 200, then it's OK
if xmlhttp.status = 200 then
    txtfile.WriteLine(xmlhttp.responseText)
    txtfile.Close
    'enable this to print
    oWS.Run "NotePad.exe /p " + path
    'enable this to just display
    oWS.Run "notepad.exe " + path    
else
    'popup bad response, or just omit to end
    WScript.Echo("bad response")
end if
'destroy objects.  I'm not sure this is necessary
Set txtfile = nothing
Set xmlhttp = nothing
Set oWS = nothing
Set fso = nothing

[drhowarddrfine]

Now hold on here. It's too late to do anything now but there might be an error on my end after all. Let me look into this in the morning.

[Curtis Rutland]

For the record, it would seem that it is a permissions error of some kind...
Code Error 800A0046 - Runtime error: Permission Denied VBScript

[drhowarddrfine]

The problem was caused by my server side code stuck in a test loop and feeding data continuously.