Using WScript.StdIn in a Windows Script Component

[cchipman]

I created a script component using the Windows Script Component Wizard, and was able to register the component.

I've run into trouble, as the purpose of the component was to provide some text input using

Dim StdIn:  Set StdIn = WScript.StdIn

However, I get an error message of the following type:

[50,15] ActiveX component can't create object WScript.

Is there a way I can get the WScript Object? Should I just pass it in?

Help?

 

[cchipman]

Nevermind... answered my own question. To make it work you

a) add the following get/set pair in the XML component area:

	<property name="scriptObject">
		<get/>
		<put/>
	</property>

b) create the object in the CDATA (VBScript) section.

Dim scriptObject
Set scriptObject = Nothing

Dim StdIn
Dim StdOut

c) modify the set code to point the stdin and stdout properly like such:

Function put_scriptObject(newValue)
	Set scriptObject = newValue
	Set StdIn = scriptObject.StdIn
	Set StdOut = scriptObject.StdOut
End Function