ActiveX component can't create object ?

Jeg prøver at køre denne kode :

Sub StartPrint()
    Set swApp = CreateObject("SldWorks.Application")
    Set Part = swApp.OpenDoc2("D:\Skivetest.SLDPRT", 1, 0, 0, 0, longstatus)
    Set Part = swApp.ActiveDoc
    Part.PrintDirect
    swApp.CloseDoc "Skivetest"
    swApp.ExitApp
End Sub

Call StartPrint()

Men får denne fejl på det :

  Microsoft VBScript runtime error '800a01ad'

  ActiveX component can't create object: 'SldWorks.Application'

  /conset/Auto.asp, line 19

Linie 19 er denne :

Set swApp = CreateObject("SldWorks.Application")

Og jeg har solid Works installeret på maskinen.

/Websam