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
objItem.ReloadZone()
Next
%>

What is the error '80041003' on the second (+thierd) line of the code???

What are you trying to return from WMI ?

I try to get to the DNS and operate Relaod on it!!!!

Just to make sure - did you install the DNS provider for WMI ? This is not installed by default.

Yes I did.

Do I need to replace the part of:"\root\MicrosoftDNS"???
In What??

Normally, the class begins with win32_ not "Select * from MicrosoftDNS_Zone". Let me see what I can find.

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.