' Listing 6. The Include Function

Function Include(vbsFile)
	Dim fso, ts, buf
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set ts = fso.OpenTextFile(vbsFile)
	buf = ts.ReadAll()
	ts.Close

	ExecuteGlobal buf
End Function