Componente ActiveX No puede crear objeto scripting.filesystemobject

[braulillo]

Buenas tardes


Al usar el objeto filesystemobject me da este error.

El código mas o menos es:

Function CargaForm()

Dim fso, CD, ts, opc, i, s, UND
Const ForReading = 1

opc=document.Formulario.Elements(0).value

Set fso = CreateObject("Scripting.FileSystemObject")
Set CD = CreateObject("Scripting.FileSystemObject")

UND="directorio"

Select Case (opc)
Case 0
Set ts = fso.OpenTextFile(UND & "/ruta/archivo.extension", ForReading)
.
.
.
Cual puede ser el problema????

Saludos y gracias.