Scripting.FileSystemObject - x

Hola:
Encontre la funcion para imprimir en el grupo:
Sub Imprimir()
Dim objFSO, objStream
Set objFSO = CreateObject("Scripting.SystemObject")
'CreateObject("Scripting.FileSystemObject")

Set objStream = objFSO.CreateTextFile("LPT1")

objStream.Writeline "Esto es una prueba"
objStream.Writeline "Esto es una prueba"
objStream.Writeline "Esto es una prueba"
objStream.Writeline "Esto es una prueba"
objStream.Writeline chr(12) 'salto de p gina

Set objStream = Nothing

Set objFSO = Nothing
End Sub

Pero cunado se ejecuta me da error:
EL COMPONENTE ACTIVEX NO PUEDE CREAR EL OBJETO:
'Scripting.SystemObject

Que hago????

Gracias
Xime.