Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objTS = objFSO.OpenTextFile(“c:\dnsservers.txt”)
Do Until objTS.AtEndOfStream
strComputer = objTS.ReadLine
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
Loop
objTS.Close