Microsoft VBScript runtime error '800a0046' - WMSSERVER

I have created a script which is written below and am trying to get it to work:

<%
Option Explicit
Set objServer = CreateObject("wmsserver.server")
Set PubPoints = objServer.PublishingPoints
Set PlayerCount = objServer.Players
%>

But I am getting an error that says:

Microsoft VBScript runtime error '800a0046'
Permission denied: 'CreateObject'
/test.asp, line 2

I have already enabled Basic Authentication and made a user that is a member of the local admin group to make the script to work. But it does not work under Windows Integrated Authentication. Any ideas?

You need to ensure that you have registered the COM object which I think that is on the machine that you are running IIS on. So to do that you need to go to Start and then type in the Run box the below:

regsvr32 WMSServerTypeLib.dll

You should also read about the complications of using DCom incase you are trying to connect to a remote WMS, on this page -
http://msdn2.microsoft.com/en-us/library/ms741994.aspx

You should also try to look at the permissions of the path used for "TEMP"; because I was facing a similar problem with TEMP=%SystemRoot%\TEMP and then account used for creating the object. Also check your own Value for TEMP if you are running it, by using your credentials.