Text Stream Problem - Please Help :(

Dear all,

Does anyone know how to disable the prompting of ActiveX Control Warning everytime I execute this VBScript?

I know if I set my Security Level to Low is possible, but it is not advisible to ask every user of this application to set the Security Level to Low.

Any one can help me?


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTStream = objFSO.OpenTextFile("c:\windows\desktop\quiz\text.txt", 1)
Do While Not objTStream.AtEndOfStream
strText = objTStream.ReadLine
Loop
objTStream.Close


Thanks in advance
Keiko