I have the code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDNS")
Set colItems = objWMIService.ExecQuery _
("Select * from MicrosoftDNS_Zone Where Name = 'pro.co.il'")
For Each objItem in colItems
What is the error '80041003' on the second (+thierd) line of the code???
It's been a while but in case someone else has the same problem, mostlikely iis is running under an account without enough rights. Disable annonymous access on iis and make sure you're logged in to an account with enough privileges.