<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<component>
<registration progid='testWSC'/>
<public><property name='hash'><get/><put/></property></public>
<script language="JScript"><![CDATA[

var hash = {};
function get_hash() {
  if(arguments.length)
    return hash[arguments[0]];
  else
    return hash;
}

function put_hash() { 
  var key = arguments[0], prop = arguments[1];
  hash[key] = prop;
}

]]></script>
</component>

Код клиента (JScript):

var wsc = WSH.CreateObject("testWSC");
wsc.hash('test') = 'one'; // создание нового "свойства"
WSH.echo(wsc.hash('test')); // one
WSH.echo(wsc.hash.test); // one

wsc.hash.test = "two";
WSH.echo(wsc.hash.test); // two

wsc.hash("test") = "three";
WSH.echo(wsc.hash("test")); // three

Код клиента (VBScript):

Set wsc = CreateObject("testWSC")
wsc.hash("test") = "one" ' создание нового "свойства"
WSH.echo wsc.hash("test") ' one
WSH.echo wsc.hash.test ' one

wsc.hash.test = "two"
WSH.echo wsc.hash.test ' two

wsc.hash("test") = "three"
WSH.echo wsc.hash("test") ' three

Автор решения — YMP.

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<component>
<registration progid='testWSC'/>
<public>
    <property name='testProperty'><get/><put/></property>
</public>

<script language="JScript"><![CDATA[
var test;

function get_testProperty() {
    return test;
}

function put_testProperty(arg1, arg2) {
    test = arg1 * arg2;
}

]]></script>
</component>

После этого, например, в клиентском JS-скрипте будет вполне допустимо писать что-то вроде:

oTest = new ActiveXObject("testWSC")
oTest.testProperty(5) = 3;
WScript.Echo(oTest.testProperty); // 5 * 3 = 15
oTest.testProperty(5, 4) = 3;
WScript.Echo(oTest.testProperty); // 5 * 4 = 20
oTest.testProperty(5, 8, 6) = 3;
WScript.Echo(oTest.testProperty); // 5 * 8 = 40

value = createComponent(componentID)

Возвращает ссылку на другой COM-объект (с другим ProgID) из этого же самого пакета (wsc-файла). Параметр componentID - уникальный идентификатор (атрибут "id") компонента. Таким образом, можно использовать функциональные возможности "соседнего" компонента из этого же самого wsc-файла.

fireEvent(eventName)

Возбуждает указанное событие. Параметр eventName - имя события, как оно определено в элементе <event>, который должен быть объявлен в элементе <public>.

value = getResource(resourceID)

Получает значение ресурса, определенного в элементе <resource>. Параметр resourceID - уникальный идентификатор ресурса в пределах компонента.

<?xml version="1.0" encoding="windows-1251" standalone="yes"?>
<?component error="true" debug="true"?>
<component>
<registration progid="SomeProgId"/>
<public>
    <method name="Construct"/>
    <method name="Destruct"/>
</public>
<script language="VBScript"><![CDATA[
    ' --------------------------------------------------
    Function Construct()
        Set Construct = New MyClass
    End Function
    ' --------------------------------------------------
    Sub Destruct(ByRef objMyClass)
        Set objMyClass = Nothing
    End Sub
    ' --------------------------------------------------
    Class MyClass
        Private intX1
        Private intX2
        
        Public Property Let x1(intValue)
            intX1 = intValue
        End Property
        
        Public Property Let x2(intValue)
            intX2 = intValue
        End Property
        
        Public Function Add()
            Add = intX1 + intX2
        End Function
    End Class
]]></script>
</component>

Клиентский скрипт:

Set objWSC = GetObject("script:C:\Temp\test.wsc")
Dim objMyClass

WScript.Echo "IsObject(objMyClass): " & IsObject(objMyClass)

Set objMyClass = objWSC.Construct()
boolRes = objMyClass Is Nothing
WScript.Echo "IsObject(objMyClass): " & IsObject(objMyClass), "; objMyClass Is Nothing: " & boolRes

objMyClass.x1 = 2
objMyClass.x2 = 3
WScript.Echo objMyClass.Add()

' Первый путь очистки
'Set objMyClass = Nothing
'boolRes = objMyClass Is Nothing
'WScript.Echo "IsObject(objMyClass): " & IsObject(objMyClass), "; objMyClass Is Nothing: " & boolRes

' Второй путь очистки, через подобие destructor'а
objWSC.Destruct objMyClass
boolResult = objMyClass Is Nothing
WScript.Echo "IsObject(objMyClass): " & IsObject(objMyClass), "; objMyClass Is Nothing: " & boolResult

Благодарность за разъяснения - alexii.

Если это свойство правильно установлено клиентским скриптом, при использовании свойств и методов этого объекта в коде WSC они будут работать в контексте клиентского скрипта. Примером может являться компонент C:\WINDOWS\system32\cmdlib.wsc, поставляемый с Windows XP. Пример использования:

Set CmdLib = CreateObject("Microsoft.CmdLib")
Set CmdLib.ScriptingHost = WScript
WScript.Echo CmdLib.checkScript()

Функция checkScript() вернёт 2 в случае, если клиентский скрипт запущен с помощью cscript.exe, и 0 в остальных случаях.
Благодарность за разъяснения - wisgest.

Предлагает ещё один способ создания экземпляра COM-объекта внутри сценария, например, аналогично функции CreateObject(). Атрибут id - это имя, применяемое для обращения к объекту внутри сценария. Объект, созданный с помощью этого элемента, будет глобальным.

Атрибуты progid и classid задают соответственно программный идентификатор и CLSID. Из этих двух атрибутов может быть указан только один.

Элемент <reference>

Обеспечивает доступ к мнемоническим константам, определённым в библиотеке типов нужного объекта (экземпляр объекта при этом не создаётся). Это позволяет не запоминать числовые значения констант, к которым постоянно нужно обращаться при написании кода.

Атрибут object задаёт программный идентификатор объекта. При необходимости можно указать версию объекта в атрибуте version. Вместо программного идентификатора объекта можно использовать глобальный код его библиотеки типов, задав его в атрибуте guid.

Например:

Элемент <script>

Содержит собственно код скрипта. Атрибут language определяет язык (JScript или VBScript).

Код сценария должен быть помещён в секцию CDATA, которая начинается с символов <![CDATA[ и заканчивается символами ]]>, чтобы избежать ошибочной интерпретации фрагментов кода как разметки XML. Данное замечание справедливо, только если присутствует элемент <?XML?>, в противном случае присутствие секции CDATA приведёт к ошибке.

Может содержать один или несколько элементов <property>, <method> или <event>.

Элемент <property>

Объявляет свойство, которое будет доступно для клиентов автоматизации. Атрибут name определяет имя свойства.

Объявляемое свойство может быть доступно только для чтения, только для записи, или для чтения и записи. Это определяется наличием внутри контейнера <property> элементов <get/> и <put/>.

Атрибут internalName в элементах <get/> и <put/> задаёт имена функций, которые будут использоваться для чтения и записи свойства соответственно. Эти функции описываются внутри контейнера <script>. Если атрибут internalName не указан, необходимо задать функции get_PropertyName и/или put_PropertyName, где PropertyName - имя свойства (атрибут name).

Элемент <method>

Объявляет метод, который будет доступен для клиентов автоматизации. Атрибут name определяет имя метода. Если не указан атрибут internalName, внутри контейнера <script> должна быть описана функция или процедура с таким именем.

Список параметров метода (если они есть) задаётся внутри элемента <method> с помощью элементов <parameter>, каждый из которых должен содержать артрибут name.

Элемент <event>

Объявляет событие, которое может обрабатываться клиентами автоматизации. Атрибут name определяет имя события.

Атрибут dispid может содержать числовой идентификатор интерфейса события.

Чтобы вызвать наступление события, внутри элемента <script> используется функция fireEvent(), с именем нужного события в качестве параметра.

Элемент <resource>

Позволяет отделить символьные или числовые константы от остального кода сценария. Для получения значения ресурса нужно вызвать метод getResource, передав в качестве параметра символьный идентификатор ресурса (значение атрибута id). Например:

Комментарии

Комментарии вставляются двумя способами:

Элемент <?XML?>

Этот элемент размещается в самом начале файла - никаких других символов или пустых строк перед ним быть не должно. Чтобы использовать в файле символы кириллицы, обязательно должен быть указан атрибут encoding, например:

Элемент <package>

Может содержать один или несколько элементов <component>. Необходим тогда, когда с помощью элементов <component> нужно определить более одного компонента. Если описывается только один компонент, элемент <package> можно не использовать.

Элемент <component>

Описывает COM-объект. Необязательный атрибут id определяет идентификатор объекта, если в одном WSC-файле находятся несколько COM-объектов. Элемент <component> должен содержать один элемент <registration> и один элемент <public>.

Элемент <registration>

Содержит информацию для регистрации COM-объекта в системе. Атрибуты progid и classid задают соответственно программный идентификатор и CLSID. Из этих двух атрибутов обязательно должен быть указан хотя бы один. Если classid не указан, этот код может оказаться различным при регистрации объекта на разных машинах.

Атрибут description может задавать краткое описание объекта, которое при регистрации попадёт в реестр.

Атрибут version позволяет указать номер версии COM-объекта. Этот номер позволяет запрашивать из приложения определённую версию COM-объекта, например, "MyClass.MyObject.1".

C помощью элемента <script> внутри контейнера <registration> можно указать две функции, одна из которых будет вызываться при регистрации объекта в системе, а другая - при удалении объекта из системы. Эти функции должны иметь имена соответственно Register() и Unregister().

Механизм работы объектов-сценариев базируется на технологии ActiveX Scripting. Основную роль здесь играет динамическая библиотека scrobj.dll, которая является оболочкой компонентов-сценариев и отвечает за функционирование файла-сценария в качестве COM-объекта. Оболочка компонентов-сценариев scrobj.dll отвечает за то, чтобы при вызове из внешнего приложения метода объекта-сценария или обращении к его свойству запускалась соответствующая функция, описанная в этом сценарии.

При регистрации объекта-сценария в разделе реестра HKEY_CLASSES_ROOT\CLSID\ создаётся новый подраздел, название которого совпадает с CLSID регистрируемого объекта. В этом подразделе создаётся подраздел InprocServer32, значением по умолчанию которого является полный путь к библиотеке scrobj.dll. Кроме того, там же создаются подразделы ProgID (программный идентификатор объекта) и ScriptletURL (полный путь к файлу объекта-сценария).

При создании экземпляра объекта из внешнего приложения в разделе реестра HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ ищется подраздел с именем, которое совпадает с программным идентификатором объекта (такой подраздел создаётся при регистрации объекта-сценария). Определяется CLSID объекта (соответствующий параметр найденного подраздела). После этого разыскивается подраздел с именем, которое совпадает с найденным CLSID объекта, в разделе реестра HKEY_CLASSES_ROOT\CLSID\. По значению подраздела InprocServer32 загружается scrobj.dll, которая в свою очередь уже загружает файл самого сценария, используя значение подраздела ScriptletURL.

Компоненты-сценарии, реализованные по технологии Windows Script Components, представляют из себя файлы с расширениями wsc (или sct), которые содержат специальную XML-разметку (объектная модель WSC XML).

Одним из главных преимуществ WSC является возможность повторного использования кода. Такие компоненты могут свободно использоваться в других сценариях, а также в любых языках программирования, поддерживающих технологию COM и способных выступить в роли OLE-клиента.

<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<component>
<registration progid='FoldersTreeEnumerator'/>
<public>
  <method name='ConnectToFolder'/>
  <method name='item'/>
  <method name='atEnd'/>
  <method name='moveNext'/>
</public>

<object id='fso' progid='Scripting.FileSystemObject'/>

<script language="JScript"><![CDATA[
var Item, Top;

function ConnectToFolder(FolderPath) {
  Item=fso.GetFolder(FolderPath);
  Top=null;
}

function item() {return Item;}

function atEnd() {return !Item;}

function moveNext() {
  Top={
    SubFolders: new Enumerator(Item.SubFolders),
    Parent: Top
  };
  while (!(Item=Top.SubFolders.item())) {
    if (!(Top=Top.Parent)) return;
    Top.SubFolders.moveNext();
  }
}
]]></script>
</component>

Зарегистрируйте компонент командой наподобие следующей:

Пример скрипта, использующего компонент (рекурсивно выведет подкаталоги каталога C:\Temp):

Set t = CreateObject("FoldersTreeEnumerator")
t.ConnectToFolder "C:\Temp"
While Not t.atEnd()
  WScript.Echo t.item().Path
  t.moveNext
Wend

Автор примера - wisgest.