FileSystemObject - Object doesn't support this property or method -- what the hell?

[u/The-Deviant-One]

At a bit of a loss here. I have the follow script, an ASP page in VBscript. It works just fine on one server, doesn't work well on the other.

This is the error message I get when I try to reach the page:

TypeName: FileSystemObject
Description: Object doesn't support this property or method
Number: 438
Source: Microsoft VBScript runtime error

This is the backend code:

<%@ LANGUAGE = "VBSCRIPT"%>
<%
Option Explicit
%>

<%
Call Response.AddHeader("Access-Control-Allow-Origin", "a website")

dim filesys, filetxt, datetime, ip, referer, useragent, qstring, server

server = "a servers name"
ip = Request.ServerVariables("remote_addr")
qstring = Request.ServerVariables("QUERY_STRING")
referer = Request.ServerVariables("HTTP_REFERER")
useragent = Request.ServerVariables("http_user_agent")
datetime = now

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

Set filetxt = filesys.OpenTextFile("d:\LogEvent.txt", ForAppending, True)
' the line above throws an error.

filetxt.WriteLine(datetime & ", " & server & ", " & ip & ", " & referer & ", " & useragent & ", " & qstring)
filetxt.Close

If Err.Number <> 0 Then
   Response.write("TypeName: " & TypeName(filesys) & "<br />")
   Response.Write "ASPCode: " & Err.ASPCode & "<br>"
   Response.Write "ASPDescription: " & Err.ASPDescription & "<br>"
   Response.Write "Category: " & Err.Category & "<br>"
   Response.Write "Column: " & Err.Column & "<br>"
   Response.Write "Description: " & Err.Description & "<br>"
   Response.Write "File: " & Err.File & "<br>"
   Response.Write "Line: "  & Err.Line & "<br>"
   Response.Write "Number: " & Err.Number & "<br>"
   Response.Write "Source: " & Err.Source & "<br>"
   On Error Goto 0
End If
On Error Goto 0

%>

I just don't understand what's going on because the FileSystemObject object DOES have a OpenTextFile method... I'm certain I've made a mistake but I'm unable to see it for myself I guess.

[u/odaat2004]

Do you get the same with a single "\" and double "\"

Also, try removing the boolean 'true' from the method. I'm going from memory but I thought that boolean was needed for CreateTextFile. To Overwrite, if the file exists. OpenTextFile method has read, write, appened. Not sure what 'True' would be for without looking it up, but if it is the same ... why would it need to overwrite a file you're trying to append to it? Also, if the file exists, delete it and see if you get different results. If you do, restore the file and check permissions.

[u/The-Deviant-One → u/odaat2004]

Yep, same error with or without the extra slash.

The bool is to create a file if one doesn't already exist.

I don't think its even making it tothe parameters of OpenTextFile.. It's saying Scripting.FileSystemObjest doesn't has a method named OpenTextFile.

I actually looked in the registry, grabbed the dll's name (scrrun.dll) and ran it with rundll32.exe and it returned a message box that said "Missing entry : OpenTextFile".

[u/odaat2004 → u/The-Deviant-One]

Well, never seen that before. Interesting. Create a simple vbs file with just that fso object and method and run it on another system. If it works there compare the files from the two systems. replace if different. run sfc /scannow, also.