Вложение файлов (альтернатива Include) в VBScript

В отличии от большинства языков программирования, где присутствует директива/функция include (C, C++, PHP), VBScript лишен такой замечательной возможности включения кода из другого файла. Для реализации подобного функционала в VBScript придется воспользоваться либо возможностями объединения различных файлов через Windows Script File (WSF), либо самописной процедурой, работа которой будет аналогична Include.

Способ 1

Создадим два файла - vbs1.vbs и vbs2.vbs. В первом файле, vbs1.vbs зададим значение переменной:

strTest = "Hello world!"

Во втором файле - vbs2.vbs, выведем на экран значение переменной strTest:

MsgBox strTest

Понятное дело, по отдельности каждый из этих файлов бесполезен, по этому воспользуемся возможностями файла wsf (буквально Windows Script File), который позволяет задать поочередное выполнение файлов.

<job id="Test">
	<script language="VBScript" src="vbs1.vbs"/>
	<script language="VBScript" src="vbs2.vbs"/>
</job>

Таким образом, при запуске файла wsf, сперва будет выполнен первый файл, а потом второй - и при этом, второй файл корректно получит данные из первого файла.

Способ 2

Так же, можно использовать самописную процедуру для VBScript, которая позволит выполнять данные из указанного файла, как будто они находятся в текущем файле скрипта.

Создадим так же файл vbs1.vbs, в котором зададим значение переменной:

strTest = "Hello world!"

Создадим файл vbs2.vbs, и внесем туда процедуру для чтения и выполнения содержимого из другого vbs файла:

Sub Include (filename)
	Dim FileSystemObject, objFile
	Set FileSystemObject = createObject ("Scripting.FileSystemObject")
	Set objFile = FileSystemObject.openTextFile (filename)
	ExecuteGlobal objFile.readAll
	objFile.close
	Set objFile = nothing
	Set FileSystemObject = nothing
End Sub

Include "vbs1.vbs"

MsgBox strTest

Таким образом, запустив второй файл, будет выполнена процедура по считыванию данных из первого файла.