Printing Scipt

IN Windows 98 below script was running fine
<SCRIPT ID=clientEventHandlersVB LANGUAGE=vbscript>
<!--
function button1_onclick()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f,a
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c: estfile.txt", ForWriting, True)
f.Write txtout.value & vbcrlf
f.Close
Set a = fso.GetFile("c: estfile.txt")
a.Copy ("c:lpt1:")
'msgbox("helo")
end function
-->
</SCRIPT>

but after installing XP giving error ACTIVEX OBJECT CANT CREATE OBJECT.