Microsoft VBScript runtime error: Permission denied

[kendas]

hi,
i always get "C:\scripts\1.vbs(8, 1) Microsoft VBScript runtime error:
Permission denied" error when trying to run the below script.
any idea?

Set objFSO = CreateObject("Scripting.FileSystemObject")
set objshell = CreateObject("WScript.Shell")

Const ForAppending = 8
Set objFile = objFSO.CreateTextFile("c:\scripts\results.txt")
If objFSO.FileExists("\\server\c$\backup\file222.txt") Then
Set objTextFile = objFSO.OpenTextFile ("c:\scripts\results.txt",
ForAppending, True)
objTextFile.WriteLine "\\server\c$\backup\file222.evt exists"
ObjTextFile.Close
end if

 

[mrmovie]

you are trying to open the file ("c:\scripts\results.txt") twice which isnt possible. you can only have a reference to it as a Textstream once.

get rid of the first CreateTextFile method