#7 Object not a collection

[Anonymous]

Hi,

I've installed the example on a windows 2000 SP4 server
with DNS already configured and working.

I've put the dnscmd.exe file in both the system32 and
the folder where the aspdns.dll resides.

I've use the com+ manager to give the dll administrative
access.

The problem I'm having is it just doesn't seem to work?

Here is a simple bit of code which should just list the
zones in the dns server.

<%
'create the dns object
Set oMan = Server.CreateObject
("ASPDns.ManageServer")
'define the zones collection
set AllZones = Server.CreateObject("ASPDNS.Zones")
'get a list of zones
set AllZones = oMan.GetZones()
'loop through the zones writing the names to the browser
For Each vZoneItm In AllZones
Response.write(vZoneItm)
Next
%>

However the above code returns the following error:
"Object not a collection"
when the server tries to execute the "For Each
vZoneItm In AllZones" line of code.

Any ideas/help would be fantastic.

As a quickie I've also installed the DNSExplorer but this
doesn't seem to work either. It doesn't hang or stop
responding, it just doesn't list the zones so alls I see is
an empty explorer.

:o)

Mike,