ActiveX warning on CreateObject("Scripting.FileSystemObject")

I have a simple html page on my local P that populates an
text box from a file by using a vbscript using the
Scripting.FileSystemObject. Whenever I load or refresh
the page, I get the following pop-up message...

"The ActiveX control on this page might be unsafe to
interact with other parts of the page. Do you want to
allow this interaction?"

I have tried adjusting the Internet Options security
settings for Internet and Local to enable everything but I
still get the pop-up. What can I do to stop this?

Here's the html file and the datafile I'm feeding it
with...

c:\readfile.htm
html
head
Script Language="vbscript"
sub ReadDatafileVB()
dim theINPUTFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set theINPUTFile=fso.OpenTextFile("c:\datafile.txt")
Do While theINPUTFile.AtEndOfStream True
var1.value = theINPUTFile.ReadLine
Loop
end sub

/Script


/head
body onload="ReadDatafileVB"
INPUT name=var1 BR
/body
/html



c:\datafile.txt
1
2
3
4