Error opening word.application object

I have written a program to print a word document. it works fine on my system. but it does not work on any other system. I have a tried to execute this program on all system with same configuration with word 2k installed on it.(it gives a error “activex not able to create object”)
Could anybody give me a solution to this

printfilename “c:/default.doc”
set wordobj = createobject(“word.application”)
wordobj.Application.Visible = false
wordobj.Documents.Open printfilename
wordobj.Application.PrintOut
wordobj.ActiveDocument.Close
wordobj.Application.Quit
Set wordobj = Nothing