VBScript 外部ファイルのインクルード方法

VBScript †
↑
外部ファイルのインクルード方法 †
Execute ステートメントを使うことで外部ファイルを取り込むことが可能。
↑
サンプル †
Include.vbs
Const g_strA = "AAA"
Const g_strB = "BBB"ExecuteTest.vbs
Option Explicit
Main

Sub Main
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Dim f
Set f = fso.OpenTextFile( "d:\home\edu\VBScript\ExecuteTest\include.vbs", 1, False )
Dim strBuf
strBuf = f.ReadAll
WScript.Echo "＜内容確認＞"
WScript.Echo strBuf
Execute strBuf
WScript.Echo "＜Execute の実行結果＞"
WScript.Echo g_strA
WScript.Echo g_strB
End Sub実行結果
＜内容確認＞
Const g_strA = "AAA"
Const g_strB = "BBB"

＜Execute の実行結果＞
AAA
BBB