ActiveX componet can't create object. Line 1 char 1.

Nogen der kan fortælle mig hvad der går galt med følgende script:
set oMasterPrinter = CreateObject("PrintMaster.PrintMaster.1")
set oMasterPort = CreateObject("PrintMaster.PrintMaster.1")

For Each oPrinter in oMasterPrinter.Printers("")
  oMasterPrinter.PrinterGet "", oPrinter.PrinterName, oPrinter
  For Each oPort In oMasterPort.Ports("")
      If oPrinter.PortName = oPort.PortName Then
        If oPort.Description = "Inactive TS Port" Then oMasterPrinter.PrinterDel oPrinter
      End if
  Next
Next

if Err <> 0 then
  'An error occurred
end if

Når det bliver kørt får jeg følgende fejl: ActiveX component can't create object. Line 1, Char 1.
Det er en W2K server.