First off someone very helpful (ebgreen) posted a function you can use to add an include here, and while I mean him or her no disrespect, the delusion of this being called a class is bothersome. It's an include, plain and simple, not a class. Of course, his routine is hardly plain and simple. What I have gleaned from various sources on the Internet, and created is this:
Dim fso, oFile, sText
set fso = CreateObject("Scripting.FileSystemObject")
set oFile = fso.OpenTextFile(strFileName,1)
sText = oFile.ReadAll
Simple, but EBGreen's routine has error checking/handling. Our projects at work have employed EBGreen's function and it works well.
No matter which method you choose to employ you must pay close attention to location. If you deploy this to a system, you'll need to be specific about where that IncFile is located and either specify it explicitly, or change to that folder to have it available when you begin this process.
Set WshShell = WScript.CreateObject("WScript.Shell")
'Change to the Install Folder...Prefixing your first call to IncFile with a change of directory should set you up nicely to proceed with success. Alternatively, you can be explicit about the location of the file name specified:
strSourceDir = "C:\ITSupport\Scripts\MyScript"
WshShell.CurrentDirectory = strSourceDir
IncFile strSourceDir & "\