Trying to get a sample MS vb script to work 1

[marekjk]

I'm trying to get the following script to work:

http://www.microsoft.com/technet/scriptcenter/scripts/network/dns/manage/nwmgvb02.mspx?mfr=true

This is supposed to clear the server DNS cache. I need to do it through a script so that I can schedule it to run every few hours. Clearly I am pretty new to MS scripting.

In order to run that script I also needed to install this:

http://msdn.microsoft.com/library/default.asp?

url=/library/en-us/dns/dns/installing_the_provider.asp


Problem:

When I run it I get an error message. This is the message I get: " clearcache_test.vbs(2, 1) (null): 0x8004100E " --without quotes.

I tried looking it up and I found that it translates into something missing. Honestly I don't think I modified the script correctly.

Any help is appreciated.

 

[markdmac]

Your error is most likely due to a wrapping problem. Here is the same script without the multi lines. Copy this text to NOTEPAD then save it with a vbs extension.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\MicrosoftDNS")

Set colItems = objWMIService.ExecQuery("Select * From MicrosoftDNS_Cache")

For Each objItem in colItems
    objItem.ClearCache()
Next

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[marekjk]

I found a utility called dnscmd.exe, which allows for command line functions... I used that. If it does not work out I'll try your way, since I already made the changes to the servers yesterday. Thanks for your help, I do appreciate it.