Listing 1: Sample.wsc


<?XML version="1.0"?>
<component>
<registration
  description="Sample component v1.0"
  progid="Penton.Sample"
  classid="{8C372226-7D30-4EC4-B1BF-F6C4CEC53AEB}"
  version="1.0"
/>
<public>
<property name="Number">
  <put/>
</property>
<method name="Multiply">
  <parameter name="Multiplier"/>
</method>
</public>
<script language="VBScript"><![CDATA[
Dim Number
Sub put_Number(ByVal NewValue)
  Number = NewValue
End Sub

Function Multiply(ByVal Multiplier)
  Multiply = Number * Multiplier
End Function
]]></script>
</component>