DNS Sunucusu Cache ini temizleme

DNS sunucunuzun cachelenmis kayitlarini temizlemek icin asagidaki scripti kullanabilir, bu islemi periyodik olarak uygulamak istiyorsaniz Scheduled Tasks yardimi yapabilirsiniz.


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