LISTING 2: main.vbs

Dim objFileSystem, objTextStream, strCode

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFileSystem.OpenTextFile("include.vbs", 1)
strCode = objTextStream.ReadAll
objTextStream.Close

Execute strCode
Call Usage("The Usage subroutine is defined in include.vbs.")