WScript Help!!!

I have been developing a dll that converts my HTML file to PDF. I got it working but when I move the code to a differnt machine a error comes up saying "ActiveX component can't create object"
I need help.
Here is the simple function

Function Create_PDF(FileName As String) As Boolean
Dim objScript
Dim ShellApp
On Error GoTo ERR_OpenForEdit
Set objScript = CreateObject("WScript.Shell")
ShellApp = objScript.Run(FileName, 6, True)
Create_PDF = True
EXIT_OpenForEdit:
Exit Function
ERR_OpenForEdit:
MsgBox Err.Description
GoTo EXIT_OpenForEdit
End Function

Thank You All
Raistlin

The error "Active-x component cannot create object" will raise only when the component which u are trying to instantiate is not properly registered in the system.
Ensure that dll file is properly registered in ur system before instantiating